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IDENTIFICATION 


PRODUCT CODE: AC-E057B-NC 

PRODUCT NAME: CZM9BBO M9312. BOOT. TERMR. 8K 
DATE: JUNE. 1978 

MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT T0 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DITITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPRENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN 
THIS DOCUMENT. THE SOFTWARE DESCRIBED IN THIS 
DOCUMENT 1S FURNISHED UNDER A LICENSE AND MAY ONLY 
BE SUED OR COPIED IN ACCORDANCE WITH THE TERMS OF 
SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tthe ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1978 BY DIGITAL EQUIPEMNT 
CORPORATION 


SEQ 0001 
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HISTORY SECTION 


CZM9BAO WAS RELEASED MARCH. 1978. 
CZM9BBO WAS RELEASED JUNE. 1978. 


REVISION B WAS CREATED TO PROVIDE THE FOLLOWING ENHANCEMENTS: 


1. PROPERLY CHECK THE BOOT ROM'S ALPHABETIC SEQUENCE AND, 
IF NOT IN CORRECT SEQUENCE. PRINT THE CORRECT SEQUENCE AS 
AN ERROR MESSAGE. ALSO CHECK FOR NO HOLES AND CHECK 
FOR ROM IN SOCKET 82 IF 11/60 AND ONLY ONE ROM EXISTS. 
ELSE PRINT THE CORRECT SEQUENCE. 


2. THE DIAGNOSTIC CANNOT DETERMINE THE DEVICE CODE FOR A 
CONTINUATION ROM. THEREFORE. CONTINUATION ROMS ARE TREATED 
RS EXTENSIONS OF THE PRECEEDING DEVICE CODE ROM. ILLEGAL 
PLACEMENT OF CONTINUATION ROMS ARE REPORTED IN ERROR 
MESSAGES. A DUPLICATE DEVICE ROM 1S ALSO REPORTED IN 
AN ERROR MESSAGE. 


COMMENT FIELOS BEGINNING WITH THE CHARACTERS "; +" 
IDENTIFY ALL LINES ADDED OR MODIFIED BY REV BO. 


REM ! 


1.0 


2.0 
2.1 


2.2 


3.0 


ABSTRACT 

THIS PROGRAM VERIFIES THE ROM INFORMATION FOR THE M9312 BOOTSTRAP 
TERMINATOR. 1T HAS TWO MODES OF OPERATION; STAND-ALONE MODE 
WHICH REQUIRES OPERATOR INTERVENTION AND APT-MODE. 

REQUIREMENTS 

HARDWARE 


ANY POP-11 UNIBUS PROCESSOR WITH CONSOLE TERMINAL AND/OR HARDWARE 
SWITCH REGISTER 

M9312 BOOT STRAP TERMINATOR 

4K MEMORY 


SOF TWARE 
THIS PROGRAM REQUIRES THAT THE CORRECT OPERATION OF _ THE 


PROCESSOR, MEMORY AND CONSOLE TERMINAL HAVE BEEN VERIFIED BY THE 
APPROPRIATE DIAGNOSTICS. 


LORDING AND STARTING PROCEDURES 


SEQ 0002 
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3.1 LORD THE PROGRAM BY ANY OF THE STANDARD PROCEDURES FOR ABSOLUTE PROGRAM FORMATS. 


3.2 


3.3 


3.4 


4.0 
4.1 


4.2 
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STARTING ADDRESS 
200- DO CRC VERIFICATION AND SIZING 


RESTART ADDRESS 
Z204- RESTART WITHOUT SIZING 


SPECIAL ENVIRONMENTS 


THIS PROGRAM 1S APT COMPATIBLE SEE SECTION FOR ETABLE SET-UP. 
FOLLOW STANDARD APT PROCEDURES FOR LOADING AND STARTING. 


OPERATING PROCEDURES 
OPERATIONAL SWITCH SETTINGS 


THE PROGRAM IS DESIGNED TO USE THE HARDWARE SWITCH REGISTER, 
HOWEVER IF THIS REGISTER 1S NOT AVAILABLE THE PROGRAM WILL USE 
LOCATION 176 AS THE SWITCH REGISTER. 


SW 15=1 OR UP-- HALT ON ERROR 
SW 13=1 OR UP-- INHIBIT ERROR TYPEOUTS 
SW 10=1 OR UP-- BELL ON ERROR 


EXECUTION TIMES 


Paar pee TIME 1S DEPENDENT ON THE CONSOLE TERMINAL DURING THE 
FIRST PASS. ALL OTHER PASSES TAKE LESS THEN 1 SECOND. 


APT PROCEDURES 


THERE ARE TWO CHOICES WHEN RUNNING UNDER APT. IF THE SIZE BIT 
(BIT 7-SENVM) IS a THE PROGRAM WILL OPERATE IN NORMAL 
STAND-ALONE MODE. F THE SIZE BiT iS SET THE PROGRAM WILL 
COMPARE PARAMETERS. FROM THE BOARD TO 
A BF APT COMPARSION FEATURE THE ETABLE MUST BE SET UP IN 


SENV: DON'T CARE 
SE NUN: 200 OR 240 


SEQ 0003 
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5.0 
5.1 


5.2 


6.3 


14- JUN-78 

SSWREG: DON'T CARE 
SUSUR: NOT USED 
SCPUOP NOT USED 

1 NOT USED 
SMTYP1 NOT USED 

1 NOT USED 
SMANS2: NOT USED 
SMTYP 2: NOT USED 
SMAOR 2: NOT USED 
SMAMS 3: NOT USED 
SMTYP 3: NOT USED 
SMPOR 3: NOT USED 
SMANSS: NOT USED 
SMANSS: NOT USED 
SMTYP4: NOT USED 
SMAORY: NOT D 
SVECT1: NOT USED 
SVECT2 NOT USED 

PSEUDO POWER-FAIL VECTOR ADDRESS 

SOE VM: NOT U 
SCOH1: CONTENTS OF ADDRESS IN SBASE 
SCONZ: NOT USED 
SOOWO: DEVICE CODES EXPECTED 


FIRST LETTER/SECOND LETTER 


SUBROUTINE ABSTRACTS 
NOROMS 


7 ROUTINE 1S CALLED ONLY IF NO ROMS WERE FOUND DURING SIZING 
DOES A READ OF ALL BOOTSTRAP ROM ADDRESSES AND COMPARES THE 
CONTENTS TO A KNOWN EXPECTED VALUE. 


CHECKS 


THIS ROUTINE SETS UP THE FIRST, LAST AND EXCEPTION ADDRESSES FOR 
T “CALSUM" SUBROUTINE. IT RECIEVES THE CALCULATED CHECKSUM FROM 
8 gy oT COMPARES IT AGA!NST THE GOOD CHECKSUM TO DETERMINE 


CALSUM 


THIS ROUTINE CALCULATES THE CRC16 CHECKSUM OF EACH ROM. IT 
RECEIVES THE FIRST ADDRESS TO BE CHECKED(FIRSTA). THE LAST 
ADORESS TO BE CHECKED(LASTAD) AND THE EXCEPTION ADDRESS (EXCADD) 
FROM THE “CHECKS” MODULE ANO RETURNS TO IT THE CHECKSUM IN R4. 


SEQ 0004 
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5.4 PROMP 
THIS ROUTINE PROCESSES THE ROM PARAMETERS. IT CHECKS THE SIZE/ 
DON'T SIZE BIT IN THE APT ETABLE AND EITHER FORMATS THE SIZING 
HE SIZING INFORMATION TO THE APT ETABLE 


5.5 


5.6 


5.7 


5.8 


5.9 


MESSAGES OR COMPARES T 
DATA. 


DEVCOD 


THIS ROUTINE LOCATES EACH DEVICE CODE AND PASSES IT AND THE 
ADDRESS IN WHICH IT WAS FOUND BACK TO THE "“PROMP” MODULE. 


PPFVAR 


THIS ROUTINE DETERMINES THE PSEUDO POWER-FAIL VECTOR ADDRESS AND 
PASSES IT AND ITS CONTENTS TO THE “PROMP™ MODULE 


PUTMES 


THIS ROUTINE FORMATS THE PARAMETER AND POWER-FAIL ADDRESS 
MESSAGES. 


ERRHAN 


THIS ROUTINE FORMATS ALL ERROR MESSAGES AND CALLS THE TYPE 
ROUTINE TO OUTPUT THEM. IT ALSO USES THE OPERATIONAL SWITCHES TO 
DETERMINE WHETHER TO OUTPUT THE MESSAGE. OR HALT. 


F ILBUF 


THIS ROUTINE FILLS THE MESSAGE BUFFER WITH ASCI1 CHARACTERS. IT 
RECIEVES THE ADORESS OF THE ASCII IN R5. 


OCASC 
THIS ROUTINE TAKES A SIXTEEN BIT BINARY NUMBER AND CONVERTS IT TO 
6 ASCII! CHARACTERS. 
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THIS ROUTINE IS USED BY THE “PUTNES” MODULE WHEN THE DATA IN R3 
1S NOT_IN THE RIGHT MODE TO BE HANDLED BY THE “OCASC" MODULE. IT 
MOVES THE ADDRESSING MODE OF R3 UP ONE LEVEL OF DEFERMENT. 


RELIABILITY//AVAILABILITY/SERVICEABILITY 


WHEN RUNNING IN ANY ENVIRONMENT BUT APT THERE 1S ONLY ONE ERROR 
DETECTED BY THE PROGRAM. THIS ERROR IS A CHECKSUM ERROR. THE 
MESSAGE WILL BE: 


CRC ERROR IN ROM EXX 
THE FOLLOWING ERROR MESSAGES WERE ADDED IN REV BO: 


1. A CONTINUATION ROM IS INCORRECTLY LOCATED IN e XC EXX) 
2. A CONTINUATION ROM IS MISSING FOR DEVICE CO an 

3. THERE 1S A DUPLICATE ROM WITH DEVICE CODE x 

4. ROM SEQUENCE IS INCORRECT AS PER INSTALLATION PROCEDURE. 


SEQUENCE SHOULD BE: 


ROM 1(E35) XX 
ROM 2(E33) XX 
ROM 3(E34) XX 
ROM 4(E32) XX 


WHEN RUNNING IN THE APT ENVIRONMENT THREE OTHER ERRORS MAY OCCUR. 


1. AN ERROR WILL OCCUR WHEN THE DEVICE CODES IN THE ETABLE DO 
NOT MATCH THE DEVICE CODES FOUND IN THE ROMS. THE ERROR 
MESSAGE WILL BE EITHER: 


1. COULD NOT FIND DEVICE CODE Xx. 
2. FOUND UNEXPECTED DEVICE CODE Xx. 


THE FIRST MESSAGE WILL BE PASSED TO APT IF A DEVICE CODE 
LISTED IN THE ETABLE CANNOT BE FOUND IN THE EXISTING ROMS. 
THE SECOND MESSAGE WILL BE SENT IF A DEVICE CODE NOT LISTED 
IN THE ETABLE 1S FOUND IN A ROM 


2. THE SECOND ERROR WILL BE IF THE PSEUDO POWER-FAIL VECTOR 
ADDRESS IN THE ETABLE DOES NOT MATCH THE ADDRESS DETERMINED 
Ag © rms: TO BE IN THE BOARDS' SWITCHES. THE MESSAGE 


POWER-FAIL VECTOR 
EXPECTED RECEIVED 


+g EXPECTED 1S THE CONTENTS OF THE ETABLE AND RECEIVED IS 


VALUE FOUND BY THE PROGRAM. 


SEQ 0006 
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THE THIRD ERROR WILL BE IF THE CONTENTS OF BOARD'S PSEUDO 
POWER-FAIL VECTOR ADDRESS DOES NOT MATCH THE VALUE EXPECTED 
FROM THE ETABLE. THE MESSAGE WILL BE: 


POWER-FAIL DATA ERROR 
EXPECTED RECEIVED 





SEQ 0007 
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000001 
160000 


001100 


177776 
177774 
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. ENABLE ABS 
-LIST ME 
.NLIST MC. MO. CND 
TITLE CZ2M98BO M9312 BOOT TERMR 8K 
; COPYRIGHT (C) 1978 
*3D01GITAL EQUIPHENT CORP. 
7 SMAYNARD, MASS. 01754 


S $PROGRAM BY BARRY G. IRRGANG 


;% 
; THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
——- (MAINDEC-11-D2QAC-C3), JAN 19, 1977. 


STN=1 
SSWR= 160000 [HALT ON ERROR, LOOP ON TEST. INHIBIT ERROR TYPOUT 
_ $BTTL OPERATIONAL SWITCH SETTINGS 

3 SWITCH USE 

ik 15 HALT ON ERROR 

8 14 LOOP ON TEST 

it INHIBIT ERROR TYPEOUTS 


13 
. SBTTL BASIC DEF INI TIONS 
*XINITIAL _ OF THE STACK POINTER 42% 1100 4% 


STACK= 11 

. EQUIV ENT. ERROR +;BASIC DEFINITION OF ERROR CALL 
EQUIV 10T, SCOPE +;BASIC DEFINITION OF SCOPE CALL 
; a DEF INI TIONS 
HT= 11 ++CODE FOR HORIZONTAL TAB 


LF= 12 +-CODE FOR LINE FEED 

CR= 15 +7CODE FOR CARRIAGE RETURN 

CRLF= 200 +,CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ++PROCESSOR STATUS WORD 

.EQUIV PS. PSH 

STKLAT= 177774 +, STACK LIMIT REGISTER 

PIRQ= 177772 7+PROGRAMN INTERRUPT REQUEST REGISTER 
DSWR= 177570 +; WARDWARE SWITCH REGISTER 

DDISP= 177570 +; HARDWARE DISPLAY REGISTER 

+ SGENERAL PURPOSE REGISTER ren anne 

RO= %0 AL REGISTER 

Ri= %1 + GENERAL REGISTER 

R2= %2 ++ GENERAL REGISTER 

R3= %3 ++ GENERAL REGISTER 

R4= %4 ++ GENERAL REGISTER 

R5= %5 ++ GENERAL REGISTER 

R6= %6 +; GENERAL REGISTER 

R7= %7 ++ GENERAL REGISTER 

SP= %6 ++ STACK POINTER 

PC= %7 ++PROGRAM COUNTER 


+ ¥PRIORITY LEVEL DEFINITIONS 
PRO= 0 +-PRIORITY LEVEL O 


SEQ 0008 
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394 000040 
395 000100 
396 000140 
397 000200 
398 000240 
399 000 
400 000340 
401 
402 
403 100000 
404 040000 
405 020000 
406 010000 
407 004000 
408 002000 
409 001000 
410 000400 
411 000200 
412 000100 
413 0040 
414 
415 000010 
416 000004 
417 000002 
418 000001 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 100000 
432 040000 
433 020000 
434 010000 
435 004000 
436 002000 
437 001000 
438 000400 
439 000200 
440 000100 
441 00004 
442 
443 000010 
44y 000004 
44S 000002 
446 000001 
447 
448 


LEVEL 


7-PRIORITY LEVEL 
7 PRIORITY LEVEL 


2 3"SWITCH REGISTER” SWITCH DEFINITIONS 
5= 100000 


ASIC DEFINITIONS 
PRi= 40 
PR2= 100 
PR3= 140 
PR4= 200 
PRS= 240 
PR6E= 300 
PR7= 340 
SW1 
SW14= 40000 
SW13= 20000 
SW12= 10000 
SWii= 4000 
SW10= 00 
SwOo9= 1000 
Swos= 400 
SWwO7= 200 
SWO6= 100 
SWwOS= 40 
SWwO4u= 20 
SWO3= 10 
SWwO2= 4 
SWO1= 2 
SWwOO= 1 
EQUIV SWO9, SW9 
EQUIV SWO8, SW8 
. EQUIV SWO7, SW7 
EQUIV SWO6. SW6 
EQUIV SWOS., SWS 
EQUIV SWO4, SW4 
EQUIV SWO3,SW3 
EQUIV SWO2, SW2 
EQUIV SWO1.SW1 
EQUIV SwWOO, 
; S0ATA 
B1T15= 100000 
BITi4= 40000 
BIT13= 000 
B1T12= 10000 
BITii= 4000 
B1T10= 2000 
B1TO9= 1000 
BITO8= 400 
B1TO07= 200 
BITO6= 100 
BITOS= 4O 
BITC4= 20 
BITO3= 10 
BITOZ= 4 
BiTOi= 2 
BiTOO= 1 
.EQUIV BITD9,BIT9 
.EQUIY Bi TO8.BIT8 
.EQUIV B1TO07,.B1T7 


NOW SWN— 


SEQ 0009 
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000210 


001400 
001656 
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SIC DEFINITIONS 
-EQUIV BITO6.B1T6 
-EQUIV BITOS. BITS 
-EQUIV. BITO4.BITY 
-EQUIV BITO3.BIT3 
.EQUIV. B1TO2,B1T2 
-EQUIV. BITO1,BIT1 
.EQUIV. B1TOO,BITO 
; SBASIC eed TRAP VECTOR ADORESSES 
ERRVEC= + TIME OUT AND OTHER ERRORS 
RESVEC= 10 RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 2"T" BIT 
TRTIVEC= 14 ++ TRACE TRAP 
BPTVEC= 14 ++ BREAKPOINT TRAP (BPT) 
1OTVEC= 20 iG Sot Le + 4 aad TRAP (1OT) £SCOPERS 
PURVEC= 24 +; POWER F 
EMTVEC= 30 ; EMULATOR. TRAP (EMT) SERRORSE 
TRAPVEC=34 +7 "“TRAP" TRAP 
TKVEC= 60 +7 TTY KEYBOARD VECTOR 
TPVEC= 64 ++ TTY PRINTER VECTOR 
P IRQVEC=240 +2PROGRAMN INTERRUPT REQUEST VECTOR 


; “Peeps "1 CC Re eR errr 
3 ip Rg IRR Dee aneaanca cain hegre mice raga tgp sete: 


CONONE =40 
CONTWO= 1000 i+ 
DUPERR=2000 i+ 


.=0 
.SBTTL TRAP CATCHER 


. 20 
+ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ™. +2, HALT" 
+ SSEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
sedeuantciaee .. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: “WORD 0 ++ SOFTWARE DISPLAY REGISTER 
SWREG: .WORD O +; SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
am @aSTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
_s 
JMP RSTART 
.SBTTL ACT11 HOOKS 


js RAAAAAAAAARAA AAA AAA AAA AA AAA AAA AAA AA AAA AA AAA AAA AAA AAA AAA TY 
;HOOKS REQUIRED BY ACT11 
SSVPC=. + SAVE PC 


SEQ 0010 
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B. Pil 14-JUN-78 16: 00 ACT11 HOOKS SEQ 0011 
506 O00046 . =46 
507 900046 002174 SENDAD +:1)SET LOC. 46 TO ADDRESS OF SENDAD IN . SEOP 
508 000052 . . =52 
509 000052 000000 .WORD O ++2)SET LOC. 52 TO ZERO 
ste 000210 . =SSVPC ++ RESTORE PC 
512 001100 . =1100 
513 001100 000 SAUTOB: .BYTE O 
514 001101 000 SINTAG: .BYTE O 
515 001102 000000 .WORD O 
516 001108 177570 SWR: WORD ODSHR 
517 001106 177570 DISPLAY: . WORD ODISP 
518 001110 000000 ROMERR: O 
519 001112 NES 0 
00111% 173000 FIRSTB: 173000 
521 001116 000000 ROMF IN: O 
3 001120 000000 ERRCNT: O 
.SBTTL APT PARAMETER BLOCK 
526 +; RERAAAAAAAAATAATALAA AACA TATA ATAL AAA TATA AAA AAA TA AAA AAT AT 
527 SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
528 ++ REMAASATAAATARTAAARAAALAAAAA AAA AAA AAA AAA ATA AAA TAAL Ty 
529 001122 . X=. ++ SAVE CURRENT LOCATION 
530 000024 . =24 +7SET POWER FAIL TG POINT TO START OF PROGRAN 
531 000024 000200 200 +7FOR APT START UP 
532 000044 . 244 +;POINT TO APT INDIRECT ADDRESS PNTR. 
533 000044 001122 SAPTHOR +; POINT TO APT HEADER BLOCK 
534 001122 =. $X ; RESET LOCATION COUNTER 
535 iG SENSRESRESESSAREASTS NAA SENTSRENTSATSAA LAAN AAT TTT 
536 +; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 
537 + INTERFACE SPEC. 
538 
001122 SAP THO 
540 001122 SHIBTS: . 0 + TWO HIGH BITS OF 18 BIT MAILBOX ADDR 
541 001124 001136 SMBAOR: .WORD SMAIL +; ADDRESS OF APT MAILBOX (BITS 0-15) 
542 001126 000002 STSTN: .WORD 2. +7RUN TIM OF LONGEST TEST 
543 001130 000002 SPASTM: .WORD 2. +7RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
544 001132 000000 SUNITM: .WORD 0 ;; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
545 001134 000052 .WORD SETENO-SMAIL/2 ;; LENGTH MAILBOX-ETABLE (WORDS) 
ne .SBTTL APT MAILBOX-ETABLE 
548 ; 1 sn ge annnnagc ea ntctgan SRR enn eect: 


MAILBOX 
AMSGTY ;; MESSAGE TYPE CODE 
AFATAL :: FATAL ERROR NUMBER 
ATESTN :; TEST NUMBER 

APASS i; 


ADEVCT ;; DEVICE COUNT 
AUNIT i; 


AMSGAD ;; MESSAGE 
AMSGLG ;; MESSAGE LENGTH 

+7 APT ENVIRONMENT TABLE 
RENV §;; ENVIRONMENT BYTE 
RENVM 8 ;; ENVIRONMENT MODE BITS 
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CZM988.P11 14-JUN-78 16: 00 APT MAILBOX-ETABLE SEQ 0012 
562 001160 000000 SSWREG: .WORD ASWREG ;; APT SWITCH REGISTER 
563 001162 000000 SUSUR: WORD AUSWR ;; USER SWITCHE 
564 001164 000000 SCPUOP: “WORD ACPUOP 2; CPU TYPE. OPTIONS 
565 ;% BITS 15-11=CPU TYPE 
566 ;8 11/0401, 11705202. 11/20=03, 11/40=04, 11745=05 
567 ;8 11/7006, PDQ=07, Q= 
568 ;8 BIT *O2REAL TIME CLOCK 
569 ;8 BIT o=FLOATING. POINT PROCESSOR 
570 ;2 BIT S=MEMORY MANAGEMENT 
571 001166 000 SMANS1: .BYTE AMANS! ;:HIGH ADORESS.MS. BYTE 
572 001167 000 SMTYP1: |BYTE AMTYP1 ;;MEM TYPE. BLK@1 
573 it MEM. TYPE BYTE -- (HIGH BYTE) 
;3 900 NSEC CORE=001 
575 ;3 300 NSEC 8 IPOLAR=002 
576 ;% 500 NSEC nos=003 
577 001170 000000 SMADR1: . WORD AMADOR ;; HIGH ADORESS. BLK 
578 ;% NEM. LAST ADOR. of Bytes. THIS WORD AND LOW OF “TYPE” ABOVE 
579 001172 000 : . BYTE 2 :cHI ESS.MS. BYT 
580 001173 000 SMTYP2: .BYTE AMTYP2 ;;MEM TYPE, BLKE2 
581 001174 000000 WORD AMAOR2 ;; MEM. LAST ADORESS. BLK#2 
582 001176 000 BYTE 37; HIGH ROORESS. BYTE 
583 001177 000 SHTYP3: .BYTE AMTYP3 ;;MEM TYPE. OLKE3 
58% 001200 000000 : [WORD AMADOR ;;MEM LAST ADORESS. BLK#3 
585 001202 000 Sansy: BYTE ANAS’ ;;HIGH ADORESS. fl S. BYTE 
586 001203 000 SMTYP4: _BYTE AMTYPY ;; MEM TYPE. BLK@ 
587 001204 000000 SMAORY: | WORD AMAORY ;;MEM LAST ADDRESS, BLK 
588 001206 000000 SVECT1: WORD AVECT1 ;:; INTERRUPT VECTORA1.BUS PRIOR ITY®1 
589 001210 000000 SVECT2: _WORD AVECT2 ;; INTERRUPT VECTORS2BUS PRIORI TY#2 
590 001212 000000 SBASE: WORD ABASE ;; BASE ADORESS OF EQUIPMENT UNDER TEST 
591 001214 000000 SDEVM: | WORD ADEVM ;; DEVICE MAP 
592 001216 000000 SCOW1: | WORD ACOWI 73 CONTROLLER DESCRIPTION WORDS 
593 001220 000000 SCOW2: [WORD ACOW2 ;; CONTROLLER DESCRIPTION WORDE2Z 
59 001222 000000 SODWO: WORD ADDWO ;; DEVICE DESCRIPTOR WORDEO 
595 001224 000000 SDOW1: | WORD ADOWI ;; DEVICE DESCRIPTOR WORDS! 
5% 001226 000000 SDON2: |WORD ADOW2 ;; DEVICE DESCRIPTOR WORDEZ 
597 001230 000000 SDOW3: _|WORD ADDONS ;; DEVICE DESCRIPTOR WORDS 
598 001232 000000 SDOW: | WORD ADOW ;; DEVICE DESCRIPTOR WORDAY 
599 00123" 000000 SDOWS: WORD ADOWS ;; DEVICE DESCRIPTOR WORDES 
600 001236 000000 SD0W6: WORD AODWG ;; DEVICE DESCRIPTOR WORDS6 
601 0012¥0 000000 SDDN7: |WORD ADOW7 ;; DEVICE DESCRIPTOR WORDE7 
602 001242 000000 SDDNS: _WORD AODWS ;; DEVICE DESCRIPT 
603 0012¥4 000000 SODW9: |WORD ADOWS ;; DEVICE DESCRIPTOR WORDED 
60% 0012¥6 000000 SODWIO: _WORD ADDWIO ;; DEVICE DESCRIPTOR WORDSIO 
605 001250 000000 SDOWI1: | WORD ADOWI1 ;; DEVICE DESCRIPTOR WORDS11 
606 001252 000000 SODWI2: _WORD ADDWIZ ;; DEVICE DESCRIPTOR WORDE12 
607 001254 000000 SDOWI13: WORD ADOWI3 ;; DEVICE DESCRIPTOR WORDS13 
608 001256 000000 SDOWI4: | WORD ADOWIN ;; DEVICE DESCRIPTOR WORDR14 
609 001260 000000 SDDWIS: |WORD ADOWIS ;; DEVICE DESCRIPTOR WORDS15 
611 
612 001262 SE TEND 
614 001400 21400 
615 001400 START: . 
616 "SBTTL INITIALIZE THE COMMON TAGS 
617 001400 012706 001100 MoV #STACK, SP ;; SETUP THE STACK POINTER 
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CZM98B8. P11 14-JUN-78 16: 00 INITIALIZE THE C 
618 iG wonichae A FEW Sys 
619 00140" 012737 006412 000034 STRAP, QRTRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
620 001412 012737 OOO34O 000036 OV 8340. SE TRAPVEC+2; LEVEL 7 
621 001420 005067 177520 CLR SPRSS ++ CLEAR THE PASS COUNT 
622 001424 016767 000520 000510 nov SENOCT, SEOPCT ; SETUP END-OF -PROGRAN wa 
623 ++SIZE FOR A HARDWARE SWITCH REGISTER. e's NOT FOUND OR IT IS 
624 +,EQUAL TO A “-1", SETUP op  B SOFTWARE SWITCH REGISTER. 
625 001432 013746 000004 nov " sacRRveEc, - (SP) +; SAVE ERROR VECTOR 
626 001436 012737 001472 000004 nov 64S. QGERRVEC -; SET of ERROR VECTOR 
627 0014844 012767 177570 177432 MOV SOSUR, SR +i SETUP FOR A HARDWARE SWICH REGISTER 
628 0014952 012767 177570 177426 MoV @O001SP.DISPLAY ;; AND A HAROUARE DISPLAY REGISTER 
629 001460 022777 177777 177416 CMP #-1, @SWR 72 TRY TO REFERENCE HAROWARE SUR 
630 001466 001012 BNE 66$ ++ BRANCH IF NO TIMEOUT TRAP ae 
631 RIND THE HARDWARE SWR IS NOT = -1 
632 001470 000403 BR 65$ ;;BRANCH IF NO TIMEOUT 
633 001472 012716 001500 645: Mov #655, (SP) ++ SET UP FOR TRAP RETURN 
634 001476 000002 RTI 
635 001500 012767 000176 177376 655: MoV SSWREG, SUR ++POINT TO SOFTWARE SWR 
636 001506 012767 000174 177372 MOV #0 1SPREG DISPLAY 
<4 00151% 012637 000004 665: MoV (SP)+, QMERRVEC -;; RESTORE ERROR VECTOR 
639 001520 005067 177420 CLR SPASS +; CLEAR PASS COUNT 
G40 001524 132767 000200 177425 B1TB APTS | ZE. SENVN ae 2 i USER SIZE UNDER AP 
641 001532 001403 BEQ 675 , USE NON-APT SWITCH 
as ty a! 012767 001160 177342 MOV #SSWREG, SWR INO USE APT SWITCH REGISTER 


675: 
SBTTL TYPE PROGRAM NAPE 


4 
645 3; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
646 001542 005227 177777 INC #-1 +-FIRST TIME? 
647 001546 001046 BNE 685 ++ BRANCH IF NO 
648 001550 022737 002174 000042 CMP #SENDAD. 2842 3; ACT-117 
G49 001556 001442 oes 685 ++ BRANCH IF _YES 
650 001560 104401 001626 YPE 698 + TYPE ASCIZ ao 
651 . SBTTL be VALUE FOR SOFTWARE SWITCH REGISTER 
652 001564 005737 000042 TST 2842 3;ARE WE RUNNING UNDER XXDP/ACT? 

001670 001012 BNE 70$ +;BRANCH IF YES 

001572 126727 177360 000001 CMPB SENV, #1 +, ARE WE RUNNING UNDER APT? 
655 001600 001406 BEQ 708 ++ BRANCH IF YES 
656 001602 026727 177276 000176 CMP SWR. #SWREG + SOFTWARE SWITCH REG SELECTED? 
6: 001610 001005 BNE 71$ ;; BRANCH IF NO 
668 UCt612 104405 GTSWR ++GET SOFT-SWR SETTINGS 
659 001615 000403 BR 71$ 
660 001616 12767 O0000i 177254 70%: MOVB #1, SAUTOB ++ SET AUTO-MODE INDICATOR 
661 001624 716: 
662 001624 000417 BR 68$ +GET OVER THE ASCIZ 
663 3569%: .ASCIZ <CRLF>2C2M9BB0 m9312 BOOT TERMR 8K2<CRLF> 
664 001664 685: 
665 001664 012700 007434 MoV BUF 1, RO CLR SIZING BUFFERS 
666 001670 006020 8s: CLR (RO)+ 
667 001672 020027 007520 CMP RO, #0C TBUF ;HAVE WE CLEARED THE WHOLE 
668 001676 002774 BLT 8$ ; BUFFER, NO, * AY 
669 001700 006037 001116 CLR QS ROMF IN ; seh ng i FOUND !NDICATORS 
670 001708 006037 003770 CLR @aTIMES ; INITIALIZE ENTRY COUNTER FOR PUTNES SUB 
671 001710 00%767 006714 JSR PC, CLEAR + +CLEAR SOME MORE LOCATIONS 
672 001714 013746 000004 MOV QBERRVEC. -(R6) + SAVE CONTENTS OF LOCATION 4 


673 001720 012737 001762 000004 MOV #25, O#ERRVEC ;+SET UP FOR POSSIBLE TRAP 
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674 001726 122737 177777 165000 CNPB a-1, @# 165000 7 1F CONTENTS = -1, 

001738 001414 BEQ 3$ + THEN CPU ROM NOT PLUGGED IN 
676 001736 012700 165000 MoV #165000, RO + GET FIRST SS OF 
677 001742 005720 1$: TST (RO)+ 7 iF THIS 2 he TRAPS CPU ROM 
678 ;NOT PLUGGED | 
679 001744 020027 166000 CMP RO, #166000 ;HAVE WE CHECKED SSES 
680 001750 001374 BNE 1$ 7 1F NO THEN CONTI j 
681 001752 012737 000001 001116 Mov #1, @#ROMF IN 7 1F NO TRAPS OR LOW BYTE IRST 
682 + ROORESS NOT E 1 ASSUME ROM PRESENT 
683 001760 000402 BR 3$ NO TRAP JUST RESTORE ERRUE 
68% 001762 062706 000004 2$: ADD a4, R6 7+1F TRAP CLEAN OFF PC. PSW 
685 001766 012637 000004 3S: NOV (R6)+, @FERRVEC + RESTORE ERRVEC 
686 001772 012700 000002 MoV 42, RO + INITIALIZE ROM FOUND INDICATOR 
687 001776 013737 001114 003324 MoV @*F IRSTB. @a TESTAD GET FIRST BOOT 
688 002008 132777 000200 001312 5%: BITB #200, @TESTAD 7 1F LOW BYTE HAS BIT 7 
689 002012 001411 BEQ 7$ +00 NOT SET ROM FOUND INDICATOR 
690 00201% 022777 177776 001302 CMP #-2, @TESTAD UNLESS. CONTENTS OF 
691 002022 001011 BNE 4§ ;EQUAL TO -2 (CONTINUATI 
692 7 007774 BIS RO, CONF IN + *SET CONTINUATION ROM FOUND | INDICATOR 
693 002030 050067 177062 BIS RO, ROMF IN ++SET ROM FOUND INDICAT 
69% O0203% C00404 BR 4§ + +CONTI 
69% 002036 0500357 001116 7$: BIS RO. @#ROMF IN +SET ROM FOUND INDICATOR 
69% 002082 050067 007760 BIS RO. DE VF IN + +SET DEVICE ROM FOUND INDICATOR 
697 O020%6 062737 000200 003324 4S: ADO #200, @# TESTAD ;UPOATE TEST AOORESS TO NEXT RON 
698 002054 006100 ROL RO ; UPDATE ROM FOUND INDICATOR 
699 002056 022737 174000 003324 CMP #174000, a TESTAD ;HAVE CHECKED ALL THE ROMS 
700 002064 001347 BNE 5$ 7 1F NO CONTINUE CHECKING 
701 002066 005737 001116 RSTART: TST @#ROMF IN 7;ARE THERE ANY ROMS AVAILABLE 
702 002072 001003 BNE 6$ + 1F YES GO TO ROM TEST 
703 004767 000126 JSR PC, NOROMS : 1F NO GO TEST NO ROMS 
70% 002100 000411 BR SEOP +GO TO END PRSS 
705 0021 004%767 000202 6$: JSR PC, CHECKS +GO CALCULATE CHECKSUNS 
706 002106 005737 001144 TST @*SPASS ARE WE ON 1ST PASS 
707 002112 001004 BNE SEOP + 1F NO SKIP PROCESS OF PARAMETERS 
708 00211% 004767 000504 JSR PC, PROMP ‘GO PROCESS ROM PARAMETERS 
709 002120 004767 007004 JSR PC, SEQTST +GO CHECK SEQUENCE OF DEVICE CODES 
he .SBTTL END OF PASS ROUTINE 
712 3 MERAABAAAAAAATAL AAA ALA AAA ALATA TATA AAA AAA AAA AAA AAA AEA Ty 
713 + SINCREMENT THE PASS NUMBER (SPASS) 
714 + 3TYPE “END PASS" 
715 +31F THERES A MONITOR GO TO IT 
716 731F THERE ISN'T JUMP TO RSTART 
717 sR1F IT 1S DESIRED TO HAVE A BELL INDICATE THE “END OF PASS" LOCATION 
4 ; 3SENDONG CAN BE CHANGED TO 7. 
720 00212" SEOP: 
721 002124 000240 NOP 

002126 005267 177012 INC SPASS +; INCREMENT THE PASS NUMBER 


002132 042767 100000 177004 BIC #100000,SPASS ;;DON'T ALLOW A NEG. NUMBER 
0021480 006327 DEC (PC)+ +; LOOP? 
002142 000001 SEOPCT: ar 1 


003017 SDOAGN +3 YES 
002146 012737 MoV (PC )+, a(PC + ;; RESTORE COUNTER 
002160 000001 SENOCT: .WORD 1 

002152 002142 SEOPCT 
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END OF PASS ROUTINE SEQ 0015 


TYPE . SENONG +; TYPE “END PASS" 
TYPE , SENULL 7+ TYPE A NULL CHRRACTER 
S$GET42: MOV 2842, RO 7;GET MONITOR ADORESS 
BEQ $0: >; BRANCH IF NO MONITOR 
RESET 7 CLEAR THE WORLD 
SENDAD: JSR PC, (RO) +260 TO MONITOR 
NOP 7; SAVE ROOM 
NOP ae 
NOP 7; ACTI1 
SDOAGN: 
JMP a(PC)+ 7+ RETURN 
SRTNAD: .WORD RSTART 
ENULL: .BYTE -1.-1.0 >; NULL CHARACTER STRING 
SENONG: .ASCIZ <15><12>/END PASS/ 
;NO ROMS TEST 
>; THIS ROUTINE IS CALLED ONLY IF NO ROMS WERE FOUND 
+ DURING SIZING. IT DOES A READ OF ALL BOOTSTRAP ROM 


ADDRESSES AND COMPARES THE CONTENTS TO A KNOWN 
EXPECTED VALUE. 


NOROMS: MOV #173000, R3 +GET FIRST ADDRESS TO BE READ 
MoV @*NODATA R4 ;GET ADDRESS OF EXPECTED VALUE 

CMPB (R3), RY ;*DOES RECIEVED VALUE EQUAL EXPECTED 
BEQ 2$ 7 1F YES CONTINUE TESTING 
MoV (R3), RY ++GET BAD VALUE 
BIS #NOROME, OF ROMERR + 1F NO SET ERROR INDICATER 
JSR PC, ERRHAN REPORT ERROR 

2s: ADD #2, R3 ++GET TO NEXT EVEN ADDRESS 
CMP #173024, R3 ;+AT A VECTOR ADORESS? 
BEQ 2$ ;+BRANCH IF YES 
CMP #173224, R3 ;+AT A VECTOR AODRESS? 
BEQ 2$ ;+BRANCH IF YES 
CMP #174000, R3 *HAVE ALL AODRESSES BEEN TESTED 
BGT 1$ + 1F NO GO TEST THIS ADDRESS 
RTS PC 

NODATA: .WORD 777 +A HOLE LOOKS LIKE XXX777 


CHECKSUM ROMS MODULE 
THIS ROUTINE DOES A CHECKSUM OF ALL ROMS PRESENT 


CHECKS: MOV #1, @#ROMCNT + INITIALIZE RON COUNTER 
BIT @#ROMCNT, @#ROMF IN + 1S DIAGNOSTIC ROM PRESENT 
BEQ 1$ + 1F_NO GO CHECKSUM B00 
MoV #165775, @#LASTAD +SET UP ‘oi vias ae TO BE SUMMED 
MoV #0, @#EXCADD +SET UP EX 10N RODRE 
MOV #165000, ORF IRSTA +SET UP Fi ast ADDRESS TO BE SUMMED 
JSR , CAL SUM + GO CALCULATE CHECKSUM 
MOV 0# 165776. R3 GET EXPECTED CHECKSUM 
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CMP R3, 
BEQ 1$ 
BIS @CRCERR, 
JSR PC, 
1$ mov #173000, 
MoV #173024, 
MOV #173175, 
nov #173176, 
28 ROL @#ROMCNT 
BIT @#ROMCNT, 
BEQ 3$ 
JSR PC, 
MoV (R2), 
CMP R3. 
BEG 3$ 
BIS #CRCERR. 
JSR C, 
3$: ADD #200, 
ADD #200, 
ADD #200, 
ADD 200, 
CNP #174000, 
BNE 2$ 
RTS PC 
ROMCNT: O 


+; CALCULATE CHECKSUMS MODULE 


D 2 
16:01 PAGE 17 


O#ROMF IN 
CALSUN 
R3 

RY 
@#ROMERR 
ERRHAN 
@#F IRSTA 
@#EXCADO 
@#LASTAD 
R2 

afF IRSTA 


SEQ 0016 


+ COMPARE CHECKSUMS 

7 1F CHECKSUMS COMPARE CONTINUE 
7 1F ERROR SET INDICATER 

7 REPORT ERROR 
7SET UP FIRST ROORESS TO BE SUMMED 
4-2! UP EXCEPTION RODRESS 

+ SET UP LAST AOORESS TO iy SUMMED 
GET ADOR OF GOOD DATA 









NT 
; 1F NO, GO UPDATE TO NEXT ROM 


1 

GET EXPECTED CHECKSUM 
COMPARE CHECKSUMS 

1F CHECKSUMS EQUAL CONTINUE 
IF ERROR SET INDICATER 
;REPORT ERROR 

; UPDATE FIRST ADDRESS 

+; UPDATE EXCEPTION ROORESS 

; UPOATE LAST ADDRESS 

; UPDATE ADDRESS OF GOOD DATA 
evap ALL ROMS BEEN CHECKED 


¢ 
, 
, 
; 

. 
’ 
; 
’ 
¢ 


F NO GO CHECKSUM NEXT ONE 
aT YES RETURN 


+THIS ROUTINE CALCULATES THE CRC16 CHECKSUM OF THE CONTENTS 
OF EVERY LOCATION EXCEPT THE EXCEPTION ADDRESS AND LAST ADDRESS 


OF EVERY ROM 


CALSUM: MOV 
MOV 


0 
CLR 
LOOP: MOV 
MOV 
CRCLOP: ve 


R2, 
aeF IRSTA 
RY 


-({) 
RO 


a#EXCADD 


@#LASTAD 
R2 


+ SAVE R2 
*GET STARTING ADDRESS 
* INITIALIZE CRC WORD 


+ THE NEXT NINE LINES 
+D0 THE MATH CALCULATIONS 


—E 2 
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CZN9BB. P11 14-JUN-78 16: 00 D OF PASS ROUTINE SEQ 0017 
842 
843 002616 000000 FIRSTA: O 
844 002620 000000 EXCADD: O 
845 002622 000000 LASTAD: O 
846 
847 
848 ‘ 
849 7PROCESS ROM PARAMETERS 


MODULE 
+ THIS ROUTINE DETERMINES IF AE 1S TO BE DONE. IF IT IS THE 
85 ;MOOULE WILL GET THE PARAMETERS FROM aan 
852 MODULES AND ASSEMBLE MESSAGES TO BE OUTPUT. IF SIZING IS 
a ;NOT TO BE DONE THIS MODULE WILL TAKE THE PARAMETERS RECEIVED 
855 


7>AND COMPARE THEM TO THE VALUES SUPPLIED IN THE ETABLE. 





856 002624 105737 001157 PROMP: TSTB ae SENVM IF BIT 1S CLEAR SIZE 

857 002630 100424 BMI 1$ IF BIT 1S SET DON'T SIZE. 

858 002632 004767 000256 JSR PC, DE VCOD +CALL DEVICE CODE MODULE 

859 2636 004767 000576 JSR PC, PUTMES FORMAT PARAMETER MESSAGE 

860 002642 MES1 

861 0026"4 004767 000460 JSR , PPFVAR +GO GET PSEUDO POWER-FAIL VECTOR ADDRESS 
862 002650 032737 OO0004O0 001110 BIT aPFERR, @#ROMERR ;WAS THERE AN ERR 

863 002656 001403 BEQ os + 1F NO GO FORMAT MESSAGE 

864 002660 004767 001106 JSR PC, ERRHAN 7 IF YES GO REPORT MESSAGE 

865 002664 000512 BR 

866 008767 000546 10S: JSR PC, PUTMES FORMAT PSEUDO POWER-FAIL VECTOR 

867 002672 010130 MES2 ;ADORESS MESSAGE 

868 002674 005 001112 INC @#MESSAG SET MESSAGE INDICATOR 

869 002700 BR GO TO EXIT 

870 002702 004767 1$ JSR PC, DE VCOD ;CALL GET DEVICE CODE MODULE 

871 002706 012703 007434 MoV BUF 1, R3 +GET BOARD DEVICE CODES 

872 002712 012704 001222 23: MoV #S00N0, R4 GET ETABLE pi CODE PARAMETERS 
873 002716 2703 000002 ADD #2, R3 +GET TO BOARD DEVICE CODE 

874 002722 012402 3$ MoV (R4Y)+, R2 ;GET ETABLE a} CODE 

875 002724 000302 SWAB REFORMAT ASC! 

876 002726 13 CMP R2, (R3) +00 THE TWO DEVICE CODES COMPARE 

877 002730 001407 BEQ 4 + 1F YES GET NEXT BOARD DEVICE COVE 
878 002732 0057 TST (R4) + 1F NO HAVE WE CHECKED THE WHOLE ETABLE 
879 00273) 001372 BNE + 1F WE HAVEN'T CHECK NEXT ETABLE ENTRY 
$80 002736 0652737 000001 001110 BIS #APTER1, @FROMERR 7 1F WE HAVE THEN DEVICE CODE ON BOARD 
$81 002744 004767 001022 JSR PC, ERRHAN ;DOES NOT EXIST IN ETABLE 

$82 002750 2703 000002 4$: ADD #2, R3 UPDATE TO NEXT RODRESS 

883 002754 005713 TST (R3) + 1F CONTENTS EQUALS ZERO WE'RE DONE 
$84 002756 001355 BNE 2$ iF 7 hacen TS NO EQUAL ZERO CONTINUE 
$85 002760 012703 001222 Mov #S00H0, R3 +GET BOARD DEVICE CODES 

$86 002764 012704 007432 5S: Mov BUF 1-2, R4 +GET ETABLE iia CODES 

$87 002770 000313 SWAB (R3) ; FORMAT ASCI 

888 002772 000004 6$: ADD #4, RY GET BOARD DEV CE CODE 

$89 002776 021314 CMP (R3), (R4) +00 THE TWO DEVICE CODES COMP 

$90 003000 001410 BEQ 7$ 7 iF YES M3! NEXT ETABLE DEVICE CODE 
$91 003002 005714 TST (R4) ; IF WE CKED 5 THE BOARD 
892 00300" 001372 BNE $ + DEVICE CODES. 1F NO CONTI 

893 003006 000313 SWAB (R3) PUT ASCII IN RIGHT ORDER ¢ — 
89 003010 062737 000002 001110 BIS #APTERZ, OFROMERR + IF _YES ETABLE DEVICE CODE NO 

ae 003016 004767 000750 JSR PC, ERRHAN NOT ON BOARD 

897 003022 062703 000002 7$: ADD #2, R3 
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9S: 
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PASS ROUTINE 

TST (R3) 
BNE 5$ 

JSR PC, 

MoV @*SBASE, 
MOV Oa BUF 2, 
CMP R4, 

BEQ 8$ 

BIS #APTERS, 
JSR C, 

MOV @#SCOW1, 
Mov @8 BUF 2+2 
CMP R4, 

BEQ 9$ 

BIS RAPTERY, 
JSR PC, 

RTS PC 


+GET DEVICE CODES MODULE 
THIS SUBROUTINE LOCATES Seo DEVICE CODE AND PASSES IT AND THE 
FOUND BACK TO THE CALLING ROUTINE. 


“ADDRESS IN WHICH IT WAS 


+DATA 1S STORED IN BUFFER “BUF 1" IN THIS FORMAT: 
ADDRESS OF FIRST DEVICE CODE 
DEVICE CODE 


| 
ADDRESS OF SECOND DEVICE CODE 
DEVICE CODE 


’ 
’ 
; 
’ 
’ 


BUF 1: 


ADDRESS OF NTH DEVICE CODE 
DEVICE CODE 


F 
16:01 
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@#ROMERR 
ERRHAN 


Re Be Be Be Be Be Be Be Be Be Be Be Be Be Be 


an—-CHanw— 
SOmMmMTNOoOmMmMmonmn 


PPF VA 
THE TWO PARAMETERS COMPARE 


CONTI 
T_APT ERROR INDICATOR 
TO ERROR ROUTINE 


= 
“ 


DATA 
THE TWO PARAMETER COMPARE 
YES THEN DONE 
T APT ERROR INDICATOR 
TO ERROR ROUTINE 


; #CONTINUATION ROM DATA 1S STORED IN “BUF1" AS FOLLOWS: 


;+ 

re 

ey 

i+ 

re 

+ 

+ 

3 IF O!1AGNOSTI 

> THERE IS BOON F 

DEVCOD: MOV 
MoV 
BIT 
BEQ 
MOV 
MOV 
MoV 
CLR 

1$: MoV 
ROL 

3S: BIT 
BNE 


CONTINUATION CHIP IDENTIFIER (ALWAYS A +1) 
DEVICE CODE (PREVIOUS ROM'S DEVICE CODE.OR -1 IF ILLEGAL ROM) 


oaF IRSTB. 
R1 
Ri, 
4§ 


R1 
@kROMF IN 
ae TESTAD 
(RO)+ 
(RO)+ 

ae TESTAD 
DE VF IN 


PRESENT IT WILL BE THE FIRST DEVICE CODE. 
UP TO 12 seat | CODES IN TEMP 


JALIZE ROM POINTER 

|AGNOSTIC ROM PRESENT 

GO TEST BOOT ROMS 

SS OF DIAG. ROM DEVICE CODE. 
ORE aoe CODE 
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PEEPLES PEER ERRREL ELLE LILLE Reb 
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006412 
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SEQ 0019 


JSR PC, CON1 ++CHECK FOR CONTINUATION CHIP 
ADD #200. a TESTAD IF NO UPDATE TEST ADORESS 
ROL R1 : UPDATE POINTER TO NEXT ROM 
BR 98 GO SEE IF PLL ROM CHECKED 
4$: TST 28 DAF LAG + 1F DATAFLAG=0 THEN DATA IS DEVICE CODE 
BNE 5$ 7 1F DATAFLAG=1 THE re 1S OFFSET TO NEX 
MOV @& TESTAD, (RO)+ + STORE ESS OF DEVICE CODE 
MoV @TESTAD, (RO)+ STORE DEVICE C 
ADD #2, @# TESTAD ; TE TE 
BR 8$ GET OVER SOME C 
5S: MoV @8 TESTAD, R2 ; SAVE OLD TEST 
ADD @TESTAD, @# TESTAD ;UPDATE TO NEW TEST ADORESS 
MOV @# TESTAD, R3 +GET THE ‘a ss 
BIC #170177, R2 i+ ITS 7.8.9, 10, 11 
BIC #170177, R3 ;+INR 
SUB R2, R3 + CALCULATE DISTANCE BETWEEN ADD 
6$: TST R3 ‘IS RIE TO 0 
BEQ 8$ + 1F YES THEN DONE 
SUB #200, R3 + 1F NO THEN MOVE POINTER 
ROL R1 ONE BIT FOR EVERY 200 
e + CON2 + +CHECK FOR CONTINUATION CHIP 
8$: COM o8 DAFLAG + CHANGE DATA FLAG TO RIGHT DATA TYPE 
9S: CMP @* TESTAD. #174000 +HAVE WE CHECKED ALL THE ROM 
BLT 3$ + 1F NO CONTINUE 
RTS PC 7 IF YES RETURN 
TESTAD: 0 
DAFLAG: O 


+GET PSEUDO POWER-FAIL VECTOR ADDRESS ROUTINE 
+ THIS SUBROUTINE TESTS LOCATIONS 173024 AND 173224 TO DETERMINE 


;WHICH VECTOR WILL BE USED IF POWER-FAIL bps ENABLED ON THE 


ON Ly - BE ENABLED AND AT L 
" OR AN ERROR WILL BE DETECTED. 


T ONE ADDRESS 


CH MUST 
+ THE DATA WILL BE RETURNED IN “BUF2" IN THE FORMAT. 


BUF2: PSEUDO 


ee 


PPFVAR: BIT #777, 08173024 
BEQ 1$ 
MOV #15, RETURN 
JSR ’ LCK1 
MoV #173024, OR BUF 2 
~Yy = 73024, O* BUF 2+2 
1$: BIT #777. 04173224 
BEG 2$ 
MOV #2$, RE TURN 
JSR PC, HOLCK2 
MoV #173224, OR BUF 2 
MoV 08173224, OR BUF 2+2 
BR 3$ 
2$: BIS aPFERR, OF ROMERR 
38: RTS PC 


POWER-FAIL VECTOR ADDRESS 
CONTENTS OF VECTOR ADDRESS 


+ TEST IF LOCATION 173024 SELECTED 
+ 1F NOT THEN GO TEST go tee 173224 
++SET UP = eee RETUR 


7 IF IT 1S THEN STORE ADORESS 

+ STORE CONTENTS OF LOCATION 173024 

>GO TO RETURN 

+ TEST IF LOCATION 173224 SELECTED 
+ 1F NOT THEN SET ERROR INDICATOR 

;4SET UP_AN ALTERNATE RETURN 

+ +CHECK FOR A HOLE 

IF IT 1S THEN STORE ADDRESS 

+STORE CONTENTS OF VECTOR 

GET OVER ERROR 

+SET ERROR INDICATOR 


H 2 
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1010 
1011 
1012 
1013 
1014 +PUT MESSAGE IN BUFFER ROUTINE 
torn + THIS SUBROUTINE FORMATS THE PARAMETER AND POWER-FAIL MESSAGES. 
1017 OO3440 017604 000000 PUTMES: MOV a(R6), RY +GET MESSAGE BUFFER ADDRESS 
1018 OO3444 005737 003770 TST @aT INES 71S THIS FIRST TIME THR 
ah 34 001110 BNE 3$ 2 «hy FIRST TIME THEN FORMAT POWER- 
ZU 5 
1021 003452 237 003770 INC ae TIMES + TOGGLE WATC 
1022 003456 012703 007434 MOV BUF 1, R3 +GET DATA BUFFER 
1023 O003"62 022713 165774 CMP #165774, (R3) + 1S DIAGNOSTIC ROM PRESENT 
102% 3466 001012 BNE 1$ + 1F NOT DON'T FORMAT DIAG. ROM MESSAGE 
1025 003470 012705 006512 MoV #ORHEAD, RS + IF IT 1S GET DIAG. ROM MESSAGE HEADER 
1026 OO3874 004767 000662 JSR PC, F | LBUF ;GO PUT HEADER IN MESSAGE BUFFER 
1027 003500 000015 CR 
1028 003502 062703 000002 ADD #2, R3 SKIP OVER ADDRESS OF ASCII 
1029 3506 000313 SWAB (R3) + FORMAT ASCII FOR MESSAGE 
1030 003510 112324 MOVB (R3)+, (RY )+ ;PUT ASCII IN MESSAGE BUFFER 
1031 003512 112324 MOVB (R3)+, (R4)+ 
1032 O00351% 012705 006533 1: MoV #BRHEAD. RS 
1033 003520 004767 000636 JSR PC, F I LBUF ;GO PUT BOOT ROM HEADER IN MESS. BUF. 
1034 003524 000015 CR 
1035 003526 012701 000001 MoV #1, R1 ;+POINT TO DIAGNOSTIC ROM 
1036 003532 012702 012040 MoV #MESTAB. R2 ;+POINT TO MSG TABLE 
1037 003636 012767 003552 006254 MOV #25, RETURN ++SET UP AN ALTERNATE RETURN 
1038 OO364% 012767 003736 006264 MOV #55, FINISH ;+SET UP ANOTHER ALTERNATE RETURN 
1039 003652 112724 000015 2s: MOovB aCR, (R4)+ ;PUT A CR/LF HERE 
1040 003556 112724 000012 MOVB aLF (R4)+ 
1041 003562 004767 005222 JSR PC, ROMTYP ;+F INO THE ROM TYPE 
1042 003566 062713 ADD #4, (R3) +GET FIRST ENTRY POINT 
1043 003572 767 000732 JSR PC, OCADD ;GO CONVERT OCTAL TO ASCII 
1044 003576 004767 JSR PC, F I LBUF ;GO PUT ENTRY POINT IN MESSAGE BUF 
1085 003602 000011 HT 
1046 360% 112724 O00040 MOVB #40, (R4)+ 
1047 003610 112724 000040 MOVB #40, (R4)+ 
1048 00361% 112724 000040 MOVB #40, (R4)+ 
1049 003620 062713 000002 ADD #2. (R3) +GET SECOND ENTRY POINT 
1050 003628 004767 000700 JSR PC, OCADD +GO CONVERT OCTAL TO ASCII 
1051 003630 004767 000526 JSR PC, F ILBUF ;GO PUT ENTRY POINT IN MESSAGE BUF. 
1052 003634 000011 HT 
1053 003636 11272% OO00040 MOVE #40, (R4)+ 
1054 003642 112724 000040 MOvVB #40, (R4)+ 
1055 003646 112724 000040 MOVB #40, (R4Y)+ 
1056 003662 112724 000011 Move #HT, (RY )+ ;PUT TAB IN HERE 
1057 003666 062703 000002 ADD #2, R3 ;UPDATE DATA BUFFER ADDRESS 
1058 000313 SWAB (R3) + FORMAT ASCII FOR MESSAGE 
1059 003664 112324 MOVB (R3)+, (R4)+ +MOV ASCII TO MES1 
1060 003666 112324 MOVB (R3)+, (R4)+ 
1061 003670 730 BR 2$ +GO BACK TO START OF LOOP 
1062 012703 007514 3$: MoV #BUF 2, R3 GET DATA BUFFER ADDRESS 
1063 003676 012705 006670 MoV #PFHEAD, R5 ;GET POWER-FAIL HEADER ADORESS 
1064 767 000454 JSR PC, F ILBUF ;GO PUT POWER-FAIL HEADER IN MESSAGE BUF 
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000002 


175072 


175056 


000236 


175010 
175000 
000010 


14- JUN-78 
END OF PASS ROUTINE 


BUF 2+4, 


(RY )+ 
@(R6), 


0 
#2, 


PC 


ERROR HANDLER ROUTINE 
i SUBROUTINE FORMATS THE ERROR MESSAGES THE 
; OUT. 


#ERRMSG, 
@RERRCNT 
#B1T10, 
1$ 


#B1T13, 
10$ 
@FROMERR, 


@#ROMERR. 
#EHEADT. 


—— ROMERR 

#3600, ROMERR 

ARG2, 13% 
R5 

F ILBUF 


1 2 
16:01 PAGE 22 


R3 
OCADD 


F ILBUF 


R3 


(R4)+ 
CR4)+ 


6$ 


(R6) 


R5 
F ILBUF 











SEQ 0021 


ARE WE DONE 
7 IF YES THEN GO RETURN 
;GO CONVERT OCTAL TO ASCII 


; UPDATE “3 po ADORE SS 
*GO BACK TO START LOOP 
;PUT A CR/LF AT END. OF MESSAGE 


;PUT ZERO TERMINATOR AT END OF MESSAGE 
+GET MESSAGE BUFFER ADDRESS 


;GET OVER MESSAGE BUFFER ADDRESS 


TYPES THEM 


+ INCREMENT ERROR COUNTER 
*BELL ON ERROR 
BRANCH IF NO 


; INHIBIT ERROR TYPEOUT 


+GET ERROR CODE 

+ SAVE ERROR CODE FOR APT 

-GET ERROR HEADER TABLE 

+C-BIT USED TO STOP STEPPING THROUGH TAB 
ROTATE ERROR CODES 

7 1F C-BIT SET STOP STEPPING 

7 1F C-BIT CLEAR STEP TO NEXT HEADER 


; TEP 
+PUT HEADER ADDRESS IN REGISTER. 
+GO PUT HEADER IN ERROR MESSAGE BUF. 


2418 IT + o ERROR? 
; +BRANCH YES 
i+1S IT A. OgeOTST™ ERROR? 


CH | 
++PUT @CR OR BHT AT 13S 
+ +ARG1 CONTAINS ADR. OF MSG 
;+PUT DATA INTO BUFFER 
+ +CONTAINS CR OR HT 













J 2 
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CZN9BB. P11 14-JUN-78 16: 00 END OF PASS ROUTINE SEQ 0022 


1122 004132 000446 BR 8s i+ 

1123 004138 032737 000023 001110 14S: BIT #23, @#ROMERR 7+1S ERROR A CRC. APTER1 OR APTERZ 
1124 004142 001424 BEQ 7$ 7 1F NO GO FORMAT APTERS. APTERY 
1125 0048184 032737 000020 001110 BIT #20, @#ROMERR + 1S ERROR CRC 

1126 004152 001415 BEQ 6$ + 1F NO FORMAT APTER1, APTERZ 

1127 004154 013700 002524 Mov @#ROMCNT, KO GET ROM COUNTER 

1128 004160 012701 006474 MoV #ROMNUM, R1 +GET ROM NUMBER TABLE 

1129 004164 000241 CLC +C-BIT USED TO STOP STEPPING THROUGH TRB 
1130 00%166 006000 4$: ROR RO ROTATE ROM NUMBER 

1131 004170 103403 BCS 5$ 7 1F C-BIT SET STOP STEPPING 

1132 004172 062701 000002 ADD #2, R1 + 1F C-BIT CLEAR STEP TO NEXT HEADER 
1133 004176 000773 BR 4§ ; CONTINUE STEPPING 

1134 004200 112124 55: MOVB (R1)+, (R4)+ ;PUT ROM NUMBER IN ERROR MESSAGE BUF 
1135 004202 112124 MOvB (R1)+, (R4Y)+ 

1136 00420" 000421 BR 8$ GO TO ENO OF ROUTINE 

1137 00%206 112324 6S: MOvB (R3)+, (R4Y)+ +PUT BAD DEVICE CODE IN ERROR MESS. BUF. 
1138 00%210 112324 MOVB (R3)+, (R4)+ 

1139 00%212 000416 BR 8$ GO TO ENO OF ROUTINE 

1140 00%21% 016603 000006 7$: MoV 6(R6), R3 +GET SAVED EXPECTED VALUE 

1141 004%220 004767 000200 JSR PC, OCASC +GO COVERT OCTAL TO ASCII 

1142 004224 004767 000132 JSR PC, F ILBUF ;GO PUT DATA IN ERROR MESSAGE BUF. 
1143 004230 000011 HT 

1144 004232 016603 000010 MoV 10(R6), R3 GET SAVED RECEIVED VALUE 

1145 00%236 004767 000162 JSR PC, OCASC +GO COVERT OCTAL TO ASCII 

1146 004242 004767 000114 JSR PC, F ILBUF ;GO PUT DATA IN ERROR MESSAGE BUFFER. 
1147 004246 000011 HT 

1148 004260 112724 000015 8: MOvVB aCR, (RY )+ ;PUT CR/LF AT END OF MESSAGE 

1149 004258 112724 000012 MOVB aLF, (R4)+ 

1150 004%260 112724 000000 MOVB #0, (R4)+ ;PUT TERMINATOR AT END OF MESSAGE 
1151 00426" 005767 174666 TST SENV TST IF ON APT 

1152 00%270 001405 BEQ 11$ + 1F NO BRANCH 

1153 004272 004767 000544 JSR PC, SATY1 GO REPORT ERROR 

1154 004276 010230 ERRMSG 

1155 004300 000000 9S: .WORD 0 

1156 004302 000000 HALT + THEN HALT 

1157 OO4%30O% 004767 000540 115: JSR PC, SATY3 ;1F NOT ON APT JUST REPORT ERROR 
1158 004%310 010230 ERRMSG 

1159 004312 032777 100000 174564 10%: BIT #81715, aSUR 1S HALT ON ERROR SET 

11 320 001401 BEQ 12$ IF NO SKIP OVER HALT 

1161 004322 000000 HALT 

1162 004328 005037 001110 128: CLR @#ROMERR CLEAR ERROR FLAGS 

1163 OO4%330 104412 RESREG 

1164 004332 000207 RTS PC 

1165 

1166 

1167 OO4334 006771 EHEADT: ERIMSG 

1168 004336 006735 ER2MSG 

1169 OO%O 00702 ER3MSG 

1170 0042 007105 ERYMSG 

1171 OOS3N4 007161 CRCMSG 

1172 OO4sN6 7 PFMSG 

1173 004360 007263 NOR 

1174 004362 007341 EQMSG i+ 

1175 004364 012076 ERMES1 i+ 

1176 O04%356 012155 ERMESZ i+ 

1177 004360 012235 ERMES3 34 
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000011 


000015 
000012 


000002 
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SEQ 0023 


NE 
+> THIS SUBROUTINE FILLS THE MESSAGE BUFFER WILL ASCI! 


30A(1052) 14-JUN-78 
END OF PASS ROUTINE 
FILL BUFFER ROUTI 
+ CHARACTERS. 
FILBUF: CMP #HT, 
BNE 1$ 
MOvB #HT, 
BR 2$ 
1$: MOvB aCR, 
MOvB aLF, 
2S: MOVB (RS)+, 
TSTB (R5) 
BNE 2$ 
ADD #2, 
RTS PC 


a(R6) 
(R4)+ 
(R4)+ 


(R4)+ 
(R4)+ 


(R6) 


-OCTAL TO ASCI! CONVERSION ROUTINE 
+ THIS SUBROUTINE TAKES A SIXTEEN BIT OCTAL NUMBER AND 
+CONVERTS IT TO 6 ASCII CHARACTERS 


OCASC: Ay 


1$: BISB 


25: ROL 


TEMP: 0 


+ THIS ROUTINE 1S CALLED BY THE PUT MESSAGE ROUTINE TO GET THE RIGHT 
; VALUE IN R3 SO THE OCTAL TO ASCII ROUTINE GETS THE RIGHT NUMBER 


ROC TBUF. 
(RO)+ 
(RO)+ 
(RO)+ 


(RO)+ 
#OCTBUF, 
oe TEMP 
(RO) 
#60, 

RO 

RO, 


2$ 
es 


RO 


RO 
as TEMP 


(RO) 
#OCTBUF +6 
R5 


Fi CR 
CR THEN GO PUT CR/LF_ IN BUFFER 
T IN BUFFER 


;PUT A CHARACTER IN MESSAGE BUFFER 
+ 1S NEXT CHARACTER ZERO 

+ 1F NOT PUT IT IN MESSAGE BUFFER AND GET 
; UPDATE RETURN POINTER TO GET OVER CHARA 
+ THEN RETURN 


+GET BUFFER ADDRESS 
+CLEAR BUFFER 


+GET BUFFER ADDRESS 
GET OCTAL NUMBER 
CLEAR CARRY 
ROTATE BIT INTO CARRY BIT 
+ ROTATE yi? BIT INTO BUFFER 
;MAKE IT ASCI 
+ UPDATE BUFFER ADDRESS 

;HAVE WE CONVERTED ALL THE NUMBER 

;1F NO CONTINUE 

aaah PUT BUFFER RODRESS IN REGISTER 


ROTATE BIT INTO CARRY BIT 
;ROTATE CARRY BIT INTO BUFFER 


‘60 TO START OF LOOP 
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CZ2N988. P11 14-JUN-78 16: 00 END OF PASS ROUTINE 
1234 004530 010346 OCADD: MOV R3, -(R6) + SAVE THE VALUE OF R3 
1235 004532 011303 MoV (R3), R3 ;PUT THE DATA TO BE i IN RZ 
1236 00% 767 177664 JSR PC, OCASC +GO CONVERT OCTAL TO ASC! 
1237 004540 012603 nov (R6)+, R3 ;RESTORE R3 
1238 004542 000207 RTS PC + RETURN 
1239 
1240 
1241 
1242 
1243 
iia .SBTTL TYPE ROUTINE 
1246 +; RERAAALALALALATA SATA LALA ATALALAAAAA LATA ALAA ALATA LAAT IT 
1247 ;SROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
1248 ;S3THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
1249 + SNOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
1250 + SNOTEZ SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
et! _—— SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
1253 + SCALL: 
1254 +%1) USING A TRAP INSTRUCTION 
1255 re TYPE - MESADR +;MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING 
1256 + ¥OR 
1257 ;% TYPE 
1258 re ME SAOR 
1260 vs 
1261 OO4544 105767 000265 STYPE: TSTB STPFLG ++ 1S THERE A TERMINAL? 
1262 004550 100002 BPL 18 +-BR IF YES 
1263 004552 000000 HALT +;HALT HERE IF NO TERMINAL 
1264 O04554 30 BR ++ LEAVE 
125 O00%556 010046 1$: MoV RO, -(SP) 33 SAVE RO 
1206 004560 017600 000002 MoV @2(SP), RO ++ GET wy OF ASCIZ STRING 
1257 OO4S6% 122767 000001 174364 CMPB #AP TENV, SENV +;RUNNING IN APT MODE 
1268 004572 001011 BNE 625 ++ NO, GO CHECK FOR APT CONSOLE 
1269 O04578 132767 000100 174355 BITB #APTSPOOL. SENVM ;; SPOOL MESSAGE TO APT 
1270 00%602 001405 BEQ 625 33NO,GO CHECK FOR CONSOLE 
1271 O0%60% 010067 000004 MoV RO, 615 ++ SETUP MESSAGE ADDRESS FOR APT 
1272 00%610 004767 000234 JSR PC, SATY3 ++ SPOOL MESSAGE TO APT 
1273 00%61% 000000 615: .WORD 0 ++ MESSAGE RODRESS 
1274 004616 132767 OO0004O 174333 62%: BITB #APTCSUP,SENVM ;; APT CONSOLE SUPPRESSED 
1276 00%62% 001003 BNE ++ YES. SKIP TYPE OUT 
1276 O0%626 112046 25: MOvB (RO)+, - (SP) +;PUSH CHARACTER TO BE TYPED ONTO STACK 
1277 00%630 001005 BNE 4§ +-BR IF IT ISN'T THE TERMINATOR 
1278 00%632 005726 TST (SP )+ ++ 1F TERMINATOR POP IT OFF THE STACK 
1279 OO0%63s 012600 605: Mov (SP )+, RO 
1280 00%636 062716 000002 3: ADD #2, (SP) ;; ADJUST RETURN PC 
1281 O0%6%2 000002 RTI ETURN 
1282 OON6%s 122716 000011 4$: CAPB #HT, (SP) ;;BRANCH IF <HT> 
1283 008660 001430 BEQ 8$ 
128% 00%662 122716 000200 CMPB aCRLF, (SP) +;BRANCH IF NOT <CRLF> 
1285 004656 001006 BNE 5$ 
1286 00%660 005726 TST (SP )+ ++POP <CR><LF> ee 
1287 004662 104401 TYPE ++ TYPE ACR AND L 
1288 004664 005037 SCRLF 
1289 004666 105067 000130 CLRB SCHARCNT ++ CLEAR CHARACTER COUNT 


SEQ 0024 


Meet p .— BOOT TERR 8K 
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1323 


See TS GaSe SERSESESERS 


004672 
004 


eS & [=] eo 
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78 16: 


MACY11 30A(1052) 


000052 


000036 
000002 


000002 


000236 
000226 


000220 


174050 


A 
14-JUN-78 16:01 
TYPE ROUTINE 
BR 2s 
55: JSR PC, STYPEC 
6$: CMPB SF ILLC, (SP )+ 
BNE 2$ 
MoV SNULL, - (SP) 
7$: DECB 1(SP) 
BLT 6$ 
JSR PC, STYPEC 
DECB SCHARCNT 
BR 
HORIZONTAL TAB PROCESSOR 
8$: MOVB @' , (SP) 
9S: JSR PC, STYPEC 
BITB #7, SCHARCNT 
BNE Of 
TST (SP )+ 
BR $ 
STYPEC: TSTB asTPs 
BPL STYPEC 
MOvB 2(SP), @STPB 
CMPB #CR, 2(SP) 
NE 1$ 
CLRB SCHARCNT 
BR STYPEX 
1$: CMPB @LF,2(SP) 
BEQ STYPEX 
INCB (PC )+ 
SCHARCNT:. WORD O 
STYPEX: RTS PC 
STPS: .WORD 177564 
STPB: .WORD 177566 
L: .BYTE 9 
SFILLS: .BYTE 2 
SFILLC: .BYTE 12 
STPFLG: .BYTE 0 
UES ascii! “?" 
te ASCII rit 


SLF ‘ASCIZ <12> 
“SBTTL APT COMMUNI CAT IONS ROUT INE 


2 
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s 
; F 
77 1F NO GO GET NEXT CHAR. 
; OF Ate. CHARS. NEEDED 


CHAR. 
NULL NEED TO BE TYPED? 
-GO POP THE NULL OFF OF STACK 


HAS ay TAB WITH SPACE 
+2 TYPE A SPACE 
+;BRANCH IF NOT AT 
ie STOP 
7POP SPACE OFF STACK 
SIGE NEXT CHARACTER 
+;WAIT UNTIL PRINTER IS READY 


77LOAD CHAR TO BE TYPED INTO DATA REG. 
72 1S CHARACTER AR CARRIAGE RETURN? 

7; BRANCH IF NO 

72 YES--CLEAR CHARACTER COUNT 


77 EXIT 

72 1S CHARACTER A LINE FEED? 
77BRANCH IF YES 

7; COUNT THE CHARACTER 

7; CHARACTER COUNT STORAGE 


+2 TTY PRINTER STATUS REG ADDRESS 
++ TTY PRINTER BUFFER REG ADDRESS 


++ INSERT FILL CHARS. 

+7 "“TERMIN™, AVAILABLE” FLAG (B1T<07>=0=YES) 
+; QUESTION MARK 

++ CARRAIGE RETURN 

++ LINEFEED 


+s RESTART ALALAAATAAAL TAL AAA AAT ALA AAA AAA AAA ALATA AAT AAAAAAAAATy 
SATY1: MOVB SFFLG ROR 


SATY3: 


SATY4: 
SATYC: 


MOVB 


‘ 


#1, SMFLG 
SATYC 
#1,SFFLG 
RO. -(SP) 
R1i,-(SP) 
SMFLG 


5$ 
#APTENV, SENV 
3$ 


++TO REPORT FATAL ER 
++TO TYPE A MESSAGE 


++ TO ONLY REPORT FATAL ERROR 
++PUSH RO STACK 
Ste R1 STACK 
HOULD TYPE A MESSAGE? 
IF NOT: R 
3 OPERATING UNDER APT? 
+; 1F NOT: BR 


CZM9BBO M9312 BOOT TERMR 8K 
C2988. P11 14-JUN-78 16: 00 


1385 


ERE EPES EERE ET I 


005310 
005312 


005314 


022767 


173776 
173772 
000004 


000176 


MACY11 30A(1052) 


174041 


173670 
000004 


173562 


N 
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APT COMMUNICATIONS ROUTINE 
BiTB 
BEQ 
MoV @4 (SP), RO 
ADD €2.4<SP) 
1$: TST SMSGTYPE 
BNE 1$ 
nov RO, SMSGAD 
2s: TSTB (RO)+ 
BNE 2s 
SUB SMNSGAD, RO 
ASR RO 
Mov RO. SMSGLGT 
ty #4, SHSGTYPE 
3$ nov a4 (SP), 4S 
ADD #2, 4 (SP) 
mov 177776, -(SP) 
JSR PC, STYPE 
4$: WORD 
55: 
10$: TSTB SFFLG 
BEQ 12$ 
TST NV 
BEQ 2s 
115: TST SMSGTYPE 
BNE 1$ 
MoV a4 (SP), SFATAL 
ADD #2. 4(SP) 
INC SMSGTYPE 
12%: CLRB SFFLG 
CLRB SLFLG 
CLRB SMFLG 
MoV (SP )+,R1 
MoV (SP )+,RO 
RTS PC 
SMFLG: .BYTE O 
$LFLG: .BYTE O 
SFFLG BYTE O 
. EVEN 
AP TS1ZE=200 
AP TENV=001 
AP TSPOOL=100 
AP TCSUP=04 


0 
.SBTTL TTY INPUT ROUTINE 


2 
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SAP TSPOOL. SENVA Shae SPOOL MESSAGES? 
3$ F NOT: BR 


‘3GET MESSAGE ADOR. 


+, BUMP RETURN ADDR. 
33 SEE IF DONE W/ LAST XMISSION? 
+7 1F NOT: WAIT 
+7PUT ROOR IN MAILBOX 
+7F IND END OF MESSAGE 


++ SUB START OF MESSAGE 

+;GET MESSAGE LNGTH IN WORDS 
+;PUT LENGTH IN MAILBOX 

+, TELL APT TO TAKE MSG. 


++PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

++ PUSH 177776 ON STACK 

+7CALL TYPE MACRO 


++ SHOULD —" FATAL ERROR? 
F NOT: 


“* NOT: 

++ FINISHED LAST MESSAGE? 
7 1F NOT: WAIT 

;:GET ERROR @ 


+, BUMP RETURN ADOR. 
++ TELL APT TO TAKE ERROR 
AL FLAG 


+; CLEAR 
7;POP STACK INTO R1 
72POP STACK INTO RO 


; AG 
77FATAL FLAG 


+s SEBAATAAARAAASARAA AAA AAA AAATAAA AAA AAAAAAAA AAA AAA AAAs 
STKS: .WORD 177560 KBD STATUS 


STKB: WORD 
-ENABL LSB 


177562 


ra 


+2 TTY KBO BUFFER 


iG See tere gece, ener rp: ny mt ae oor 7 peta ce eatamencetite tain: 
+ SSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
;BROUTINE 1S ant fee te THE TRAP HANDLER. 


;SSERVICE THE TEST 


SCKSHR: CMP EG. SUR 


AND W 
CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
; SWHEN OPERATING B.Riy FLAG MODE. 


1S THE SOFT-SWR SELECTED? 


Cz +2 4gh + gee BOOT TERR 8K 
C2988. P 1%-JUN-78 16: 00 


id i) 


Sz 


eves 
seks 


& 
£& 


ETHELSEEPoReEeOSGFEDLE 


021627 
001005 
104401 

706 


177760 


177754 
177600 
000007 


177676 


177672 
177600 


000025 
006034 
000006 


000002 
000006 
005037 
173377 


000100 
177234 
000060 


000067 


000060 
000002 


000002 
177776 


MACY11 there be 


000001 


173416 


000001 
177574 


T 
SGTSUR: 


19$: 
75: 


95: 


205: 


15$: 
165: 


17$: 


8 
14-JUN-78 16:01 
Y INPUT ROUTINE 


, SCNTLG 
SWREG, - (SP) 


@STKB, - (SP) 
# C177, (SP) 
(SP), #25 
10$ 

- SCNTLU 

#6, SP 

198 


+ ahaa 


15$ 
#100, aSTKS 


PC, STYPEC 
(SP), #60 
18$ 


2(SP) 
~2(SP), (SP) 


3 
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USER 
+ ARE UNNING IN AUTO-MODE? 
BRANCH 1F YES 


+-ECHO THE CONTROL-G ( G) 

7; TYPE CURRENT CONTENTS 

7; SAVE SWREG FOR TYPEOUT 

++G60 TYPE--OCTAL i DIGITS) 


33 1F NOT TRY AGAIN 


+7PICK UP CHAR 
+;MAKE IT 7-BIT ASCII 


72 1S tT A CONTROL-U? 

7; BRANCH IF NOT 

++ YES, ECHO CONTROL-U (¢ U) 
; E PREVIOUS INPUT 
++,LET'S TRY IT AGAIN 


+718 1T A <CR>? 

++ BRANCH IF NO 

++ YES. IS IT THE FIRST CHAR? 
+;BRANCH IF YES 

++ SAVE NEW SWR 

+; CLEAR UP es 

+-ECHO <CR> AND < 

7; RE-ENABLE TTY KBD. INTERRUPTS? 
++ BRANCH IF NOT 

+7 RE- a TTY KBD INTERRUPTS 


ae 


++ ECHO CHAR 
+CHAR < 0? 

;; BRANCH e.4 YES 

+ BRANCH 1F YES 


++STRIP-OFF ASCI 
++ 1S THIS THe FIRST CHAR 


sé OOM FOR NE 
+: KEEP COUNT OF CHAR 
7: SET IN NEW CHAR 


SEQ 0027 




















PL 


005566 
005570 
005574 


peers M9312 BOOT TERMR 8K 
14-JUN-78 16: 00 


000707 
104401 
000720 


005036 


006024 
006034 


000177 
005036 
4 


00004 
006022 
000015 





000002 
000004 
000023 
000140 


000175 
000004 


MACY11 30A(1052) 
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TTY INPUT ROUTINE 


185: 
. DSABL 


+; REMAAAAALALALAAAAAAA LALA ATA ALAAALALATALALAAAAAA AAAI I TTT 
*STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


+ ¥CALL: 


.*s i 
Be ee bt 


1$: 


2$: 


LSB 


ROCHR 
RETURN HERE 


(SP),-(SP) 
4( SP), 2(SP 
STKS. 


1§ 

@STKB. 4(SP) 
# €<177>, 4(SP) 
4(SP), #23 
3$ 

asTKS 

2$ 

esTKs., - (SP) 
# C177, (SP) 
(SP )+, #21 
2$ 

1$ 

4(SP), #140 
4§ 

4(SP), #175 


4§ 
#40, 4( SP) 


SEQ 0028 





+GET THE NEXT ONE 
‘TYPE 2<CR<LFD 
++ SIMULATE CONTROL-U 









+; INPUT A a CHARACTER FROM THE TTY 
7+ CHARACTER 1S ON THE STACK 
+; WITH PARITY BIT STRIPPED OFF 







++ PUSH ~“y THE PC 
PS 












+;GET RIO OF JUNK IF ANY 
7271S 1T A CONTROL-S? 

7; BRANCH IF NO 

;;WAIT FOR A CHARACTER 
;+LOOP UNTIL ITS THERE 
7+GET CHARACTER 

+; MAKE IT 7-BIT ASCII 
77 1S 1T A CONTROL-Q? 

77 IF NOT DISCARD IT 

77 YES. RESUME 

77 1S tT UPPER CASE? 

7; BRANCH IF YES 

7718S tT A SPECIAL CHAR? 
+: BRANCH IF YES 


MAKE IT UPPER CASE 


4§: RTI 7-60 BACK TO USER 
33 ee beetle teed ik Rita teen teat ie 


SROL IN: 
1$: 


2$: 


10S: 
4§: 
34: 


ROL 
RETURN HERE 


R3,-(SP) 
#STTYIN.R3 
> ebm eR3 


(SP )+, (R3) 
#177, (R3) 
3$ 

, SQUES 

1$ 

(R3). 95 
98 

#15, (R3)+ 
2$ 


carer, ROUTINE WILL INPUT A STRING FROM THE 


+; INPUT A STRING FROM THE TTY 
+; ADORESS OF FIRST CHARACTER WILL BE ON THE STACK 
++ TERMINATOR WILL BE A BYTE OF ALL O'S 


3+ SAVE 

+; GET E 

;; BUFFER FULL? 

77 BR IF YES 

+;GO READ ONE CHARACTER FROM THE TTY 
>; GET CHARACTE 

7718 tT A RUBOUT 

7-SKIP IF NOT 

77 TYPE A '?° 


3; CLEAR THE BUFFER AND LOOP 
+7ECHO THE CHARACTER 


++ CHECK FOR RETURN 
++LOOP IF NOT RETURN 


CZM9BBO MIZIZ BOOT TERMR SK 
CZN9BB. P11 14%-JUN-78 16: 00 


005770 
005774 


pen nRnuEEEES ° 


177777 
005040 


000004 
006024 


MACY11 30A(1052) 


000002 
000004 


000 
000012 
020122 
053505 


000211 


000171 
000165 
000154 


9S: 


STTYIN: 
SCNTLU: 
SCNTLG: 


SMSUR: 
SMNEW: 


D 3 
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TTY INPUT ROUTINE 


CLRB -1(R3) 
TYPE F 


nov STTYIN. 4CSP) 


TI 

BYTE O 
.BYTE O 
-BLKB_ 8. 


~ASCIZ 7 U/<15><12> 
-ASCIZ 7 G/<15><12> 


-ASCIZ ¢15><12>/SWR = 


.ASCIZ 7 NEW = 


et RE TURN Lise 15) 


: TYPE of tl Ne FEE 
‘RD UST THE STACK AND PUT AOORESS OF THE 
- FIRST ASCII CHARACTER ON | 
+7RETURN 


++ STORAGE FOR ASCII CHAR. TO TYPE 
++ TERMINATOR 

++ RESERVE 8 BYTES FOR TTY INPUT 
++ CONTROL ° 

+, CONTROL “G" 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


P 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be 
PE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 94 94 94 DE 
a an =g 


v NUM, - (SP) 
TYPOS 
.BYTE N 
.BYTE 


MoV NUM, - (SP) 
ON 


MoV NUM, - (SP) 


STYPOS: MOV (SP). -(SP) 
MOVB 1(SP), SOF ILL 
MOvB (SP )+, SOMODE+1 
ADD #2. (SP) 
BR STYPON 
STYPOC: MOVB #1, SOF ILL 
vB #6, SOMODE +1 
STYPON: MOVB #5, SOCNT 


ADD #6,R4 
MOVB R4, SOMODE 


++ RAEAATARALAALARAAAAAALAAAAA ALAA AAA AAA AAA AAAA AAA AAA TAT Ay 
TO rae A 16-BIT BINARY NUMBER TO A 6-DIGIT 


oc AND TYPE 
2 Ne pai cn HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


>7NUMBER TO BE TYPED 
+-CALL FOR TYPEOUT 
+:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
7-M=1 OR O 
+-1=TYPE LEADING ZEROS 
+; O=SUPPRESS LEADING ZEROS 


STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
 ASTYPOS OR STYPOC 


;;NUMBER TO BE TYPED 
7+ CALL FOR TYPEOUT 


 ASTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;;NUMBER TO BE TYPED 
+-CALL FOR TYPEOUT 


++PICKUP THE MODE 

+-LOAD ZERO FILL SWITCH 

++ NUMBER OF DIGITS TO TYPE 
+2 ADJUST RETURN ADDRESS 


7+SET THE ZERO FILL SWITCH 

+:SET FOR SIX(6) DIGITS 

+7SET THE ITERATION COUNT 

33 E R3 

+2 SAVE RY 

+2 SAVE RS 

++GET THE NUMBER OF DIGITS TO TYPE 


+; SUBTRACT IT FOR MAX. ALLOWED 
++SAVE IT FOR USE 


SEQ 0029 
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CZN9BB. P11 
1570 006162 116704 
1571 006166 016605 
1572 006172 
1573 0061 006105 
1574 006176 0004 
1575 006200 006105 
1576 006202 006105 
1577 006208 006105 
1578 006206 010503 
1579 006210 006103 
1580 006212 105367 
1581 006216 100016 
1582 006220 042703 
1583 006228 001002 
158% 006226 704 
1585 006230 001403 
1586 006232 
1587 006238 052703 
1588 006240 052703 
1589 O06244 11 
1590 006250 104401 
1591 006254 105367 
1892 006260 003347 
1593 006262 002402 
1594 006264 005 
1595 006266 000744 
1596 006270 012605 
1597 006272 012604 
1598 012603 
1599 006276 016666 
1600 012616 
1601 006 
1602 006310 
1603 006311 000 
1604 006312 000 
1605 313 
1606 006314 000000 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 


006316 
006316 010046 


000125 
000012 


000076 
177770 


000002 9000004 
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BINARY TO OCTAL (ASCII) 


6$: MoV 


E 
UN-78 16:01 


(SP )+,R5 
(SP )+, R4 
(SP )+,R3 
2(SP), 4(SP) 
(SP )+, (SP) 


0 


ooo0o 





3 
PAGE 31 
AND TYPE 


++GET THE ZERO FILL SWITCH 
ett THE INPUT NUMBER 
i; ROTATE MSB INTO “C" 


GO DO ASB 
;;FORM THIS DIGIT 


>. 
a 
“+ 
cr 
5 
4 
az 
a0 
~o 
a 
“a 


TEST FOR 
:3 SUPPRESS THIS 0? 
+;DON'T SUPPRESS ANYMORE O'S 
+-MAKE THIS DIGIT ASCII 
+7MAKE ASCII IF NOT ALREADY 
++ SAVE FOR TYPING 

++GO TYPE THIS DIGIT 


;; COUNT BY 1 
7-BR IF MORE TO DO 
7-BR IF DONE 

+; INSURE LAST DIGIT ISN'T A BLANK 
+GO DO THE LAST DIGIT 


se 


is AGE FOR ASCII DIGIT 
++ TERMINATOR FOR TYPE ROUTINE 
+, OCTAL DIGIT COUNTER 
++ZERO FILL SWITCH 

+NUMBER OF DIGITS TO TYPE 


. WORD 
“SBTTL SAVE AND RESTORE RO-RS ROUTINES 
; SEAAAAAAARAAAAAT ALAA A AAA AAA AA AAA AAA AAA AAA AAA AA AAA AAA AAA Ey 
SAVE RO-RS 


2 
: CALL 
it 


SAVREG 
; RUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


re 
; RTOP--- (+16) 


7% 42---(4+18) 
7% 44---R5 
7% +46---R4Y 
7% +8---R3 
+ %4+10---R2 
7 %412---R1 
;%414---RO 


SSAVREG: 
MOV 


RO, -(SP) 


+7PUSH RO ON STACK 


SEQ 0030 


os. st BOOT TERMR 8K 


CZN9BB 


14-JUN-78 16: 00 
010146 
01 


000002 


006446 


MACY11 gle 


F 
16: 01 


3 
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14- JUN-78 
AVE AND RESTORE RO-RS ROUTINES 

nov R1,-(SP) 7; PUSH R1 ON STACK 
mov R2,- (SP) +7PUSH R2 ON STACK 
nov R3,-(SP) +7 PUSH R3 ON STACK 
MoV R4,-(SP) 72 PUSH RY ON STACK 
MoV RS,-(SP) ++ PUSH RS STACK 
MoV 22(SP),-(SP) +; SAVE PS OF MAIN FLOW 
MoV 22(SP),-(SP) +; SAVE PC OF MAIN FLOW 
MoV 22(SP),-(SP) +; SAVE PS OF CALL 
ney 22(SP),-(SP) +; SAVE PC OF CALL 

;BRESTORE RO-RS 

> XCALL: 

;% RESREG 

SRESREG: 
MoV (SP )+, 22(SP ) +,RESTORE PC OF CALL 
Mov (SP )+, 22(SP) ae ph PS OF CALL 


MoV (SP )+, 22(SP) 


m 


OF MAIN FLOW 


000004 000002 


TORE PC 
Mov (SP )+, 22(SP) + RESTORE PS OF MAIN FLOW 
MoV (SP )+,R5 7:POP STACK INTO RS 

MoV (SP )4+, R4 Se 
MoV (SP )+,R3 
MoV (SP )+,R2 +2 POP 


MoV (SP )+,R1 
MOV (SP )+, RO ;;POP STACK INTO RO 


RTI 
.SBTTL TRAP DECODER 


+; RAERAAAARAAATAAAATAAAAALALATA AAA AAA AAA AAA AAA TATA AAA AAAI 
+3THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 

; AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;30F THE DESIRED ROUTINE THEN USING THE ADDRESS OBTAINED IT WILL 
+%GO TO THAT ROUTINE. 


STRAP: MOV RO, -(SP) ++ SAVE RO 
MoV 2(SP), RO ++GET TRAP RODRESS 
TST -(RO) ++BACKUP BY 2 
MOVB (RO), RO ;3GET RIGHT BYTE OF TRAP 
ASL RO ++POSiTION FOR INDEXING 
MoV STRPAD(RO).RO ;; INDEX TO TABLE 
RTS RO ++GO TO ROUTINE 


+; THIS 1S USE TO HANDLE THE “GETPRI" MACRO 


STRAPZ: MOV (SP), -(SP) +;MOVE THE PC DOWN 
MoV 4(SP), 2(SP) +;MOVE THE PSW DOWN 
RTI +;RESTORE THE PSW 


.SBTTL TRAP TABLE 


;3THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;SBY THE “TRAP” INSTRUCTION. 


; ROUTINE 


‘ 


SEQ 0031 










1697 

1698 

1699 

1700 006474 030062 
1701 006476 032463 
1702 006500 031463 
1703 006502 032063 
170% 006504 031063 
1705 006506 177607 
1706 

1707 

1708 006512 044504 
1709 006520 7522 
1710 006526 

1711 006533 01 
1712 006540 052123 
1713 O0654%6 047522 
1714 006564 051124 
1715 006662 047111 
1716 006570 042116 
1717 006576 041511 
1718 00660" 042504 
1719 006611 11% 
1720 006616 020040 
1721 00662" 020040 
1722 006632 020117 
1723 006640 

1724 O066"6 044504 
1725 006664 042504 
1726 006662 041440 
1727 006670 1520 
1728 006676 0 
729 00670" 043056 


=#58 


ee 
e 


ox —_ 
oe 


en 
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027456 
041520 
042114 


04 3040 
042504 





MACY11 30A(1052) 
TRAP TABLE 


STRPAD: 


SRESREG 


+ MESSAGES 


ROMNUM: . 


BELL: 


DRHEAD: . 


BRHEAD: 


. WORD 
Y 


. ASCII 


. ASCIZ 


PF HEAD: 


ER 2MSG: 


. ASCIZ 


 ASCIZ 


14- JUN-78 
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SEQ 0032 











STRAPZ 

++ CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

++ CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
+; CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
++ CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 








++ CALL=GTSWR TRAP+5(104405) GET SOFT-SWR SETTING 























7+ CALL=CKSWR TRAP+6(104406) TEST FOR CHANGE IN SOF T-SWR 
++ CALL=RDCHR TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
++ CALL=RDL IN TRAP4+10(104410) TTY TYPEIN STRING ROUTINE 

+; CALL=SAVREG TRAP+11(104411) SAVE RO-R5S ROUTINE 

+; CALL=RESREG  TRAP+12(104412) RESTORE RO-RS ROUTINE 





7207 
735/ 
7337 
7347 


732/ 
€207><377><377> 
ZDIAG. ROM (E20) 7 


<12>/BOOTSTRAP ROM ENTRY POINTS AND DEVICE CODES/<15><12> 


/LOC. NO DIAG. RUN DIAG DEVICE CODE/ 


@PSEUDO POWER-FAIL VECTOR ADR. /NEW PCa 


7COULD NOT FIND DEVICE CODE 7 
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1784 


RREP EL ESF 


14- JUN- 


78 16: 


MACY11 30A(1052) 
TRAP TABLE 


ER1MSG: 


ER 3MSG: 


ER4MSG: 


CRCMSG: 


PF MSG: 


NOROMM: 


SEQMSG: 


. EVEN 


. ASCIZ 


. ASCII 


. ASCIZ 


. ASCII 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCII 


. ASCIZ 


. ASCII 


. ASCIZ 


H 3 
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7FOUND UNEXPECTED DEVICE CODE / 


/POWER-FAIL VECTOR ERROR/<15><12> 


/ EXPECTED REC IEVED/<15><12> 
7POWER-FAIL DATA ERROR/<15><12> 
F EXPECTED REC IEVED/<15><12> 


7CRC ERROR IN ROM E-/7 


7COULD NOT DETERMINE POWER-FAIL VECTOR ADDRESS/ 


ZNO ROMS TEST ERROR/<15><12> 


/ VALUE ADDRESS/<15><12> 


€15><12>7ROM SEQUENCE IS INCORRECT AS PER / 


7 INSTALLATION PROCEDURE. 7 


SEQ 0033 


i 3 
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CZM9BB. P 14-JUN-78 16: 00 TRAP TABLE SEQ 0034 
1794 
1795 
17% > BUFFERS 
1797 
1798 007434 000030 BUF 1: 
1799 007434 000000 WORD O 
1 007436 000000 WORD O 
1801 007440 000000 WORD O 
1802 007482 000000 WORD 0O 
1803 007484 000000 WORD O | 
1804 007446 000000 WORD O 
1805 000000 WORD O 
1806 007452 000000 WORD O 
1807 7454 000000 WORD O 
1808 007456 000000 WORD O 
1 007460 000000 WORD O 
1810 007462 000000 WORD O 
1811 007464 000000 WORD O 
1812 000000 WORD O 
1813 000000 WORD O 
1814 007472 000000 WORD O 
1815 000000 WORD O 
1816 007476 000000 WORD O 
1817 007500 000000 WORD O 
1818 007502 000000 WORD O 
1819 00750% 000000 WORD O 
1820 000000 WORD 0O 
1821 007510 000000 WORD O 
1822 007512 000000 ORD O 
1823 00751% 000000 BUF 2 WORD O 
1824 007516 000000 ORD O 
1823 000010 OCTBUF: . BLKB 10 
1 00 MES1: BLKB 400 
1827 010130 000100 ME S2: BLKB 100 
1828 010230 000400 ERRMSG: .BLKB 400 3+ 
1829 
1830 i+ 
tl 7+THE FOLLOWING CODE WAS ADDED IN REV BO: 
i+ 
oc 7+"CLEAR" CLEARS THE NEW LABEL AND BUFFER LOCATIONS 
i+ 
1835 74"CON1" AND "CON2" FILL “BUF1" WITH THE CONTINUATION ROM DATA AND 
74 ;*#SET ERROR FLAGS WHEN NECESSARY 
i+ 
1838 ;+"HOLCK1” AND "HOLCK2" CHECK FOR HOLES TO VERIFY THE POWER FAIL 
+e pias ADDRESS: ALSO SET 11760 INDICATOR WHEN APPLICABLE 
1841 : SRONTYP™ RAND “ROMNM" FILL THE MESSAGE BUFFER WITH A CONTINUATION ROM 
a ; *MESSAGE AND WITH A ROM IDENTIFICATION MESSAGE 
1 3+ 
1844 : 
1845 010630 012700 011774 CLEAR: MOV °* #SEQBUF, RO joan UP TO CLEAR LOCATIONS 
1846 010634 005020 1$: CLR (RO)+ 
1847 010636 020027 012036 CMP RO, #F INISH rami CLEARED? 
1848 010642 101774 BLOS 1$ + +BRANCH IF NO 


1849 010644 000207 RTS PC i+ 





J 3 
CZN9BBO M9312 BOOT TERMR 8K MACY11 30A(1052) 14-JUN-78 16:01 PAGE 36 


CZ2N98B. P11 14-JUN-78 16: 00 TRAP TABLE SEQ 0035 
1850 010646 030167 001152 CON1: BIT R1, CONF IN + +CONTINUATION CHIP? 
1851 010652 001001 BNE 1$  paeptpace te IF YES 
1852 010654 000207 RTS PC 
1853 010656 050167 001132 15: BIS Ri, CONER 1 SCHIP DOES NOT BELONG HERE-SET ERROR FLAG 
185% 010662 012720 000001 MoV ai, (RO)+ ;+SET CONTINUATION ROM INDICATOR 
1855 010666 012720 177777 MoV a-1, (RO)+ priate ROM'S DEVICE CODE =-i 
1856 010672 000207 RTS PC 
1857 010678 005703 CONZ2: TST R3 ‘ SPOINTING OVER THIS CHIP? 
1858 010676 001001 BNE 1$ a 8 1F YES 
1859 010700 000207 RTS PC 
1860 010702 030167 001116 15: BIT R1, CONF IN ‘ SCONT INUAT ION CHIP? 
1861 010706 001005 BNE 2s + *BRANCH IF YES 
1862 010710 014067 001102 MoV -(RO), CONERZ ++CHIP 1S MISSING-SAVE DEVICE CODE 
1863 01071% 062700 0600002 ADD #2, RO i+ 
1864 010720 000207 RTS PC i+ 
1865 010722 012710 000001 2$: MoV #1, (RO) ++SET CONTINUATION CHIP INDICATOR 
1866 010726 014002 MoV -(RO), R2 +*GET PREVIOUS DEVICE CODE 
1867 010730 062700 000004 ADD #4, RO ++POINT TO CORRECT LOCATION 
1868 010738 010220 MoV R2, (RO)+ — IN DEVICE CODE 
1869 010736 000207 RTS PC 
1870 010740 032767 000002 170150 HOLCK!: BIT #2, ROMF IN 4A CHIP ’ SOCKET #17 ' 
1871 010746 001415 BEQ END ——— 1F NO 
1872 010750 000207 RTS PC 
1873 010752 032767 OO0004% 170136 HOLCK2: BIT #4, ROMF IN 4A CHIP IN SOCKET #2? 
1874 010760 001401 BEQ 1$ + +BRANCH IF NO 
1875 010762 000207 RTS PC i+ 
1876 010764 122737 000777 173224 1%: CMPB 8777, #173224 +*ARE SWITCHES SET? 
1877 010772 001403 BEQ END + *BRANCH IF NO 
1878 0107748 052767 000002 001020 BIS #2, FLAG ++SET 11760 INDICATOR 
1879 011002 016716 001012 END: MoV RETURN, (R6) agid UP ALTERNATE RETURN 
1880 011006 000207 RTS PC 
1881 011010 005713 ROMTYP: TST (R3) ‘FARE bee A ek mca 
1882 011012 001003 BNE 1$ ++BRANCH IF NO 
1883 011014 016716 001016 MoV FINISH, (R6) seas! UP ALTERNATE RETURN 
188% 011020 000207 RTS PC 
1885 011022 022713 000001 1$: CMP #1, (R3) 5 $CONT INUAT ION CHIP? 
1886 011026 001401 BEQ 2$ ;+BRANCH IF YES 
1887 011030 000414 BR ROMNM ;+1TS A ats CHIP-FIND SOCKET & 
1888 011032 004767 000024 2$: JSR PC, ROMNM ++F INO SOCK 
1889 011036 012705 012050 MOV #CONMES, R5 ++LOAD MSG INTO BUFFER 
1890 011042 004767 173314 JSR PC, F ILBUF i+ 
1891 0110%6 000011 HT :¢ 
1892 011060 062703 000004 ADD #4, R3 ;+POP OVER CONTINUATION CHIP DATA 
1893 01105% 016716 000740 MoV RETURN, (R6) ahd UP ALTERNATE RETURN 
189% 011060 000207 RTS PC 
1895 011062 032713 000170 ROMNM: BIT #170, (R3) : 3BEGINNING A NEW ROM? 
18% 011066 001015 BNE 3$ anaes 1F NOT 
1897 011070 000241 1$: CLC 
1898 011072 006101 ROL R1 : SPOINT TO NEXT SOCKET 
1899 011074 030167 170016 BIT R1, ROMF IN ++1S A ROM THERE? 
1900 011100 001003 BNE 2$ + *BRANCH IF YES 
1901 011102 062702 000002 ADD #2, R2 ++POINT TO NEXT MSG 
1902 011106 000 BR 1$ + #+CONT I NUE 
1903 011110 012205 25: MoV (R2)+, RS ++LOAD ROM 1D 
1904 011112 004767 173244 JSR PC, F ILBUF ++INTO THE MSG BUFFER 
1905 011116 000015 CR i+ 
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011120 
011122 
011126 


000402 
112724 
000207 


012767 


012703 
012702 
012700 


00024 
006100 


000011 


000011 


000610 
001000 
007530 
000566 
000562 
176270 


000560 
172516 


011774 
173000 


MACY11 30A(1052) 
TRAP TABL 


000674 


167726 


167672 
000604 


176272 


BR 
3$: Move 
4§: RTS 


+ +SEQUENCE TES 
++THIS TEST VER 
++THEY BELONG, 


;+THAT THE R 
+ +HOLES 


1F | 
THA 
AR 
- AND THAT 
++1F THE ONLY PROBLEM OE 
+ +THEN A CORRECT SEQUENCE 1S DETERMINED AND PRINTED OUT. 


4§ 
SHT, (R4Y)+ 
PC 


ES THAT CONTINUATI 
T THERE 


SOCKET @2 HAS 
1S ALPHAB 


K 3 
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TICAL 


i+ 
++LOAD A TRB 


i+ 


CHIPS ARE LOCATED WHERE 
ARE NO DUPLICATE DEVICE ROMS 
E IN ALPHABETICAL ORDER. THAT THERE ARE NO 
A CHIP IF THE PROCESSOR IS AN 11/760. 
R AND/OR HOLES, 


++F RST, CHECK FOR ILLEGAL CONTINUATION oan * scmnaen: 
7+1F ANY ARE FOUND, PRINT ERROR MSG AND EX 


SEQTST: MOV 
TST 
BEQ 
MoV 
MoV 
MoV 

15: BIT 
BNE 
ADD 
CLC 
ROR 
BR 

23: TST 
BEQ 
MoV 
MoV 
SWAB 

Vv 
CLRB 
R 

3S: MoV 

4§: JSR 
RTS 

7+1F THERE WERE 

;¢+ 

i+ SE QBUF : 

,¢ 

i+ 

,+ 

1+ 

++ 

;¢ ENDSEQ: 

i+ 

7+FOR A “HOLE”, 

FILTAB: MOV 
MOV 
MoV 

15: CLC 
ROL 


#HT, ARG2 
CONER1 


2 

CONER1. R3 
a@MESTAB, 
#CONONE, " 


NO CONTINUATION ROM ERRORS. 


R2 
ROMERR 


ROMERR 


;4SET UP FOR “ERRHAN” 
i +HAS THERE AN ERROR? 


7 *BRANCH 


1F NO 
7+THE BIT IDENTIFIES THE CHIP 
+ *POINT TO — TABLE 


+ +SET ERROR 


FLAG 
7 +IDENTIFY THE ROM FOR PRINTOUT 
1F FOUND IT 


> +BRANCH | 


pease UP FOR NEXT ROM MSG 
;4SET UP TO IDENTIFY NEXT ROM 


; SHAS THERE AN ERROR? 
+*BRANCH IF NO 

;4+SET ERROR FLAG 

7+PASS THIS ADDRESS TO ERRHAN 
++BUILD THE MSG 


’ 


i+ . 
+ +REPORT THE ERROR 

;+PASS MSG ADDRESS TO “ERRHAN" 
+ +REPORT ERROR 


‘’ 


FIRST DEVICE CODE 


a OF 


CONTINUATION ROMS FOR FIRST DEVICE 


SECOND DEVICE CODE 


# OF CONTINUATION ROMS FOR SECOND DEVICE 


FOURTH (LAST) DEVICE CODE 
THE DEVICE CODE WILL BE A O. 


#SEQBUF, 
#173000. 
#1, RO 


RO 


R3 
R2 


++SET UP TO 
++POINT TO F 
i+ 


+ 
++POINT TO NEXT ROM 


BUILD THE FOLLOWING TABLE: 


A. TABLE CALLED “SEQBUF" 


SEQ 0036 


CZM9BBO M9312 BOOT TERNR 8k 
CZN98B. P11 


NOMEUN-o = 


14-JUN-78 16: 00 
167614 
000514 


011774 


06 000004 
020427 012010 


000004 
012010 


002000 
007530 
176066 


176064 
172320 


000200 


012010 


MACY11 30A(1052) 
TRAP TABLE 


2s: 


3: 
5S: 


4§: 
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BIT RO, ROMF IN 
BEQ 3$ 
BIT RO, CONF IN 
BNE 4§ 
nov (R2), (RI) 
ADD 4, R3 
ADD #200. R2 
BIT RO, #20 
BEQ 1$ 
BR ALPHCK 
INC -(R3) 
ADD #2, R3 
BR 5$ 


7+1S IT A HOLE? 
+ +BRANCH IF YES 
++1S IT A CONTINUATION CHIP? 
+ +BRANCH IF YES 


SEQ 0037 


++1TS A DEVICE ROM-PUT DEVICE CODE INTO TABLE 


++POINT TO NEXT CODE LOCATION 


arg TO NEXT 
+ALL DONE? 


; +NO- BRANCH 
+ +TABLE ely Me BUILT 


+COUNT ONE CONTINUATION CHIP IN Be patna 
;4POINT TO NEXT DEVICE CODE LOCATION 


++ 


+*NOW CHECK DEVICE CODES IN “SEQBUF” FOR ALPHABETICAL ORDER AND 


RNO 
+AND/OR HOLES FILLING. DO IT AND SET 
ALSO CHECK FOR THE 11/760 SPECIAL CASE. 


++SET UP TO CHECK ALPHABETIC SEQUENCE IN “SEQBUF 


; + 4FLAG. 
ALPHCK: 
15: 
25: 


35: 


167462 4S: 
000374 


5S: 
6S: 


167406 


7$: 
8S: 


MOV #SEQBUF, 
MoV R3, 
ADD #4, 
CMP R4, 
BHI 3$ 
TST (R3) 
BEQ 7$ 
TST (R4) 
BEQ 2$ 
CMP (R3), 
BEQ $ 
BGT 5$ 
BR 2$ 
ADD #4, 
cMP R3, 
BHIS 9§ 
BR 
MOV #DUPERR. 
MoV #MESi, 
SWAB CR4) 
Vv (R4), 
CLRB S1 
JSR PC, 
RTS PC 
MoV R3, 
MoV R4, 
MoV (R2), 
MoV (R1), 
MoV RO, 
MoV (R2), 
MoV (R1), 
MOV RO, 
MOV #SEQERR, 
BR 
MOV R3. 
CMP RS, 


R3 


RY 
#ENDSEQ 


ROMERR 


ROMERR 


RS 
#ENDSEQ 


IF THERE 1S A DUPLICATE DEVICE CODE. PRINT 
EXIT. IF yee CODE NG 
THE SEQUENCE ERROR 


S NEED SORT! 


;*WILL BE COMPARING (R3) TO (R4) 


7 *+WHERE R3 AND RY POINT TO DEVICE CODE LOCATIONS 


+ +PAST ~ LAST DEVICE CODE? 
++BRANCH IF YES 

Ss at A DEVICE CODE HERE? 
++BRANCH IF NO 
++1S THERE A DEVICE CODE HERE? 
+ +BRANCH IF NO 
i+1S THE SEQUENCE CORRECT? 
++BRANCH IF NO-FOUND A DUPLICATE 
++BRANCH IF NO-NEED TO DO A SHIFT 
+ +YES- CONT I NUE 
++POINT TO NEXT DEVICE CODE 


+ALL DONE? 
;4BRANCH IF YES 
+*NOT YET 

+ +SET ERROR FLAG 

++PASS THIS ADDRESS TO “ERRHAN" 
++BUILD THE MSG 


an 


; REPORT THE ERROR 
SSSET UP FOR THE SHUFFLE 
1+ 

;+SHIFT THE VALUES 


‘3SE7 THE ep re ERROR FLAG 
++CONTINUE SORTING 

++SET UP TO SEE IF WE HAVE A “HOLE” 
++END OF TABLE? 


" 
CZM9BBO M9312 BOOT TERMR SK MACY11 30A(1052) 14%-JUN-78 16:01 
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2018 011512 ++YES-THIS WAS NOT A ee 
2019 062705 ROO a4, + 4NO-POINT TO NEXT DEVICE CODE LOCATION 
2020 011520 41S THERE A ROM HERE? 
2021 8$ oe aon es 1F NO 
2072 +A ROM IN SOCKET #2 ONLY? 
001004 BNE HIF 


+BRANC 
3411760 R'y CASE? 
+ *BRANCH IF _NO 
+ +THE ONLY ROM MUST STAY IN SOCKET #2 
+ +YES-THERE 1S A HOLE THAT CAN BE FILLED 
++GET READY TO SHIFT THE VALUES 
++F ILL IN THE HOLE 
+AN 11/60? 
;+BRANCH IF NO 
++1S SOCKET #2 EMPTY? 
+ *BRANCH IF NO 
++1S SOCKET #1 EMPTY? 
ANCH IF YES 


#SEQBUF, R1 ; 
@SEQBUF +4, R2 ++CHIPS #1 AND &2 
6$ ++00 THE SHIFT 
167272 10%: @SEQERR, ROMERR ;+WAS THERE A SEQUENCE ERROR? 
_ ; +BRANCH 1F YES 
++ 


++THE FOLLOWING ROUTINE BUILDS THE CORRECT SEQUENCE MSG TO BE 
;+PRINTED AS AN ERROR MSG BY "ERRHAN" 


OUTTAB: MOV @MES1, ARG! ++PASS MSG ADR. TO “ERRHAN" 
Mov AR 7+PASS THIS TOO 
“ 


S SSTART BUILDING THE ERROR MSG 
. RS ++PUT IN THE FIRST PART 
F ILBUF i+ 


i+ 

7+1S A ROM IN SOCKET #17? 
7*BRANCH IF YES 

RO ++#D0 SOCKET #2 ONLY 


000002 R2 i+ 

010130 e BUILD ++SET UP THE DEVICE CODE PART 
++ 

176214 MO MES2 it 


176212 
1 R5 5S IDENTIFY THE ROM & 
172434 F I LBUF - 


000100 RS : spur IN EITHER DEVICE CODE OR CONTINUATION MSG 
172422 ‘ PC F ILBUF 34 


i+ 
;+ANY CONTINUATION ROMS? 
;+BRANCH IF NO 
++COUNT DOWN ONE ROM 

BUILD ;+SET UP FOR CONTINUATION MSG 
+ +CONT I NUE 
;+ANY MORE DEVICE ROMS? 


2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 





N 3 
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2074 011762 001346 BNE 1$ ++BRANCH IF YES 

2075 011764 105014 CLRB (RY) +MUST END WITH O BYTE 

2076 011766 004767 172000 JSR PC, ERRHAN ;+REPORT THE ERROR 

2077 1011772 000207 RTS PC i+ 

2078 

2079 

2080 011774 000000 SEQBUF: .WORD 0 7+F IRST DEVICE CODE 

2081 011776 000000 -WORD O +48 OF CONTINUATION CHIPS FOR FIRST DEVICE 
2082 012000 000000 -WORD O + +SECOND DEVICE CODE. ETC 

2083 012002 000000 .WORD O :¢ 

208% 01200% 000000 -WORD O i+ 

2085 012006 000000 -WORD O :¢ 

2086 012010 000000 ENDSEQ: .WORD 0 + *FOURTH (LAST) DEVICE CODE 

2087 012012 000000 .WORD O i+ 

2088 01201% O00000 CONER1: .WORD 0 ++EXTRA CONTINUATION CHIP ERROR FLAG 
2089 012016 000000 CONER2: .WORD 0 7 *MISSING CONTINUATION CHIP FOR THIS DEVICE 
2090 012020 000000 RETURN: .WORD 0 earl a aie RETURN ROORESS 

os | 012022 000000 FLAG: .WORD QO ++BIT 1: 11760 

012028 000000 CONFIN: .WORD 0 : SCONTIMUATION ROM FOUND INDICATOR 

2093 012026 000000 DEVFIN: .WORD 0 +*DEVICE ROM FOUND INDICATOR 

20% 012030 000000 ARG1: .WORD QO ++PASSES MSG ADR. TO “ERRHAN™ 

2095 012032 000000 ARG2: .WORD 0 ¢ OPRESES CR OR HT TO “ERRHAN™ 

209% 012034 000000 BUILD: .WORD 0 

2097 012036 000000 FINISH: .WORD 0 : SAL TERNATE RETURN RODRESS 

2098 012080 012336 MESTAB: ROMI ++ASCII MSG TABLE 

2099 012082 012352 ROMZ i+ 

2100 012084 012366 ROMS i¢ 

2101 G120%6 012402 ROMY :¢ 

2102 012050 051511 O¥O44O O41440 CONMES: . ASCIZ 71S A CONTINUATION ROM/ 


2103 012056 087117 044524 052516 
210% 012064 062101 047511 020116 
2105 012072 047622 000115 
2106 012076 6 020101 O47503 ERMES1: . ASCIZ <15><12>/A CONTINUATION ROM IS INCORRECTLY LOCATED IN/ 
2107 012104 2116 047111 040525 
2108 012112 0446524 047117 051040 
012120 440 


1 020104 000 
2114 ope! 015 pared ls hte ERMES2: . ASCIZ <15><12>/A CONTINUATION ROM IS MISSING FOR DEVICE CODE/ 


2117 012176 O08 1 051511 
2118 012208 OF 051511 04452 
2119 012212 043616 O 051117 
21 012220 042080 053105 041511 
2121 012226 020106 042504 
21 01225 ou0 

2123 012236 016 052012 042510 ERMES3: _ASCIZ <15><12>/THERE 1S A DUPLICATE ROM WITH DEVICE CODE/ 
212% 012242 O42622 O444480 020123 
2126 012250 020101 06 046120 
2126 012256 ge rete 062101 020105 
2127 012264 7622 020115 044527 
2128 012272 044124 042040 053105 
2129 012300 041511 020105 047503 


CZM9BB0 M9312 BOOT TERR 8K 


C2988 


Pil 


14-JUN-78 16: 00 


0% 250% 
123 


020105 
042114 
000012 
020115 
024465 
020115 
024463 
020115 
024464 
020115 
024462 


, 8 4 
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042525 
044123 
041040 


024061 
000040 


ERMESS: 


ROM: 
RONZ2: 
ROMS: 
ROMY: 


. END 


. ASCIZ /SEQUENCE SHOULD BE: 7<12> 


.ASCIZ /ROM 1(EB) 7 
. ASCIZ /ROM 2(E33) 7 
.ASCIZ ZROM SCE) 7 
. ASCIZ Z/ROM 4(E32) 7 


SEQ 0040 


c 4 
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CZN9BB. P11 14- JUN-78 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0041 
ABASE = 000000 Bug 590 
ACOM1 = 000000 Sug 592 
ACOMNZ = 000000 BYu9 593 
ACPUCP= 000000 549 
ROOND = 000000 Bue 594 
AD0N1 = 000000 Th) 596 
000000 Bug 
ADON11= OOO000 Sug 605 
000000 5u9 606 
AO0N13= OOO00O Bug 607 
ADON1S= OOO00O Bug 
AO0N1S= 000000 549 609 
AD0N2 = 000000 BYg 596 
ADO = 000000 549 597 
ADO = 000000 549 598 
ADOMS = 000000 549 599 
AD0NS = 000000 By9 
AOON7 = 000000 59 601 
ADONB = 000000 549 602 
ADONS = OO0000 By9 603 
ADEVCT= OO0000 5u9 555 
ADE VN = OOO000 Bug 591 
RENY = 000000 549 
REWVH = 000000 549 561 
= 000000 549 
PLPHCK 011344 1971 19828 
s 000000 Su 
AMNADRZ= OCO00O 549 581 
AMAORI= 000000 Bug 584 
AMNAORS= OOOC0O Bug 587 
AMANS1= COCO0O 549 571 
000000 549 579 
000000 5yu9 582 
AMNAMSs= 000000 549 585 
000000 549 557 
AMSGLG= 000000 549 558 
ANSGTY= 000000 Bus 551 
ANTYP1=s OOOO00O 549 572 
000000 549 580 
3s 000000 cus 583 
s 000000 549 586 
000000 Seg 
APRIOR= OCOOOOO 549 
APTCSUs 000040 1274 13888 
TENV¥= 000001 1267 1344 13868 
APTERI= 000001 4 Pua 880 
2= 000002 475% 894 
APTERI= OCOO0O4 4768 
TERe=s 000010 4778 911 
APTS1Z= 000200 640 13858 
APTSPO= 000100 1269 1346 13878 
ARG1 012030 1119 1936% 1941x 2000% 2046x 20948 
ARG2Z 012032 1118 1921 2047% 20958 
ASWREG= 000000 G4 562 
ATESTN= 000000 Bug 553 
iT = 000000 549 


CZM9BBO M9312 BOOT TERMR 8K 


CZN9BB. P11 


“VNRZun=o SSIERFERSS 
(eee ee ee ee ee ee ee ee ee | 
: 


SOCOC SCO COCO O2eeCee2eeCF8"9 
44-4 ee ee ee ee ee ee 
Savous S 


—_ 

mA 

a 
Uy 


CLE 1 

CONER1 012014 
COMER2 012016 
COMFIN 012024 
CONMES 012050 
CONOMEs 000400 
CONTWO= 001000 
COM1 010646 
CON2 010674 
CR = 000015 


CRCERR= 000020 


DEVCOD 003114 


14-JUN-78 16: 00 


958 
517 
870 


MACY11 30A(1052) 


886 

998% 
2071% 

8208 


1924 
1937% 
1860 
21028 


1034 
801 

1284 
976% 
628 
9428 


14- JUN-78 
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942 


1039 


1323 
9828 


1022 
1005% 


20898 
2092% 


1065 


D 
16: 01 


4 
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179 
1 


7988 
006% 1062 1066 18238 


1073 1113 1148 1189 1313 


1323 


1905 


SEQ 0042 


2047 


—e 4 
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DEVFIN 012026 696% 952 20938 
DISPLA 001106 5178 628% 636% 
DISPRE 000174 44S 636 
ORHERD 006512 1025 17088 
= 177570 3778 516 627 
OUPERR= 002000 484s 
EHERDT O04%334 1105 11678 
ENTVEC= 000030 4668 
we 011002 1871 1877 18798 
ENWOSEQ 012010 1985 1996 2017 20868 
ERMES1 012076 1175 21068 
ERMESZ2 012155 1176 21148 
ERMESS 012235 1177 21238 
012311 2 21318 
ERRCNT 001120 5228 1096% 
3772 760 789 802 864 881 895 906 912 10948 1942 2004 2076 
ERRMSG 010230 1095 1154 1158 18288 
ERRVEC= OO00D4 4598 625 626% 637% 672 673% 685% 
ERIMSG 006771 1167 17398 
E 006735 1168 17348 
ERSNSG 007027 1169 17458 
ERSMSG 007105 1170 17548 
EXCADD 002620 782% 791% 804% 835 8448 
FILBUF 004362 1026 1033 1044 1051 1064 1069 1112 1120 1142 1146 1185# 1890 1904 
2052 2 2066 
FILTAB 011256 1934 19578 
FINISH 012036 1038% 1847 1883 20978 
FIRSTA 002616 783% 790% 803% 807 821 8438 
FIRSTS 001114 5208 687 
FLAG 012022 1878% 2030 20918 
= 83x33 U 493 663 1683 1684 1685 1686 1688 1690 1691 1692 1693 1694 
GTS = 104405 658 16888 
HOLCK1 010740 997 18708 
HOLCK2 010752 1004 18738 
HT = 000011 3698 1045 1052 1056 1070 1143 1147 1185 1187 1282 1323 1891 1907 
1921 2067 
10TVEC= 000020 4 
LASTAD 002622 781% 792% 805% 838 8458 
LF = 000012 3708 §=©1040 1074 1149 1190 1317 1323 
LOOP 8238 839 
001112 5198 868% 
MESTAB 012040 1036 1925 2049 20988 
MmeES1 007530 860 18268 1936 1938% 1939% 2000 2002% 2003% 2046 2050 
MmES2 010130 867 18278 2058 2060% 2061% 
002306 755 7708 
WOROME= 000100 759 
woROMM 007263 1173 17748 
NOR OFS 703 7548 
OCROD 004530 1043 1050 1068 12348 
OCRSC 004424 1141 1145 12048 1236 
OCTBUF 007520 667 1204 1209 1216 1218 18258 
011622 2040 20468 
PFERR = OOOO40 4798 862 1008 1114 
PFHERD 006670 1063 17278 
PFMSG 007205 1172 17668 


PIRQ = 177772 3768 










= a 
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PIRQVE= 000240 
VAR 9948 


10178 


1037% 1879 1893 20908 

794% 795 8118 1127 

788% 801% 862 880% 894% 905% 911% 1008% 1103 1104 1114 
1125 1162% 1926% 1935% 1999% 2014% 2039 

681% 693% 695% 701 779 795 944 1870 1873 1899 1962 


1982 2032 2034 2036 2037 2048 20808 


629 635% 642% 656 1097 1101 1159 1401 1438% 
656 1401 1414 


. 






SH11 
SH12 
S13 
SH14 
SW15 
SHZ 

SW3 


TB ITVE 


PREwWNW-O 


PEEEEEE EEE 
gageagess 
SREBERERE 
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001246 


CZM9BBO M9312 BOOT TERMR 8K 
14-JUN-78 16: 00 


MACY11 30A(1052) 


1220% 
690 
966 

1021% 
620% 


731 
1590 


13368 
1409 


1306 


1440 
885 


G 
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1222% 
697% 


977 
10818 
1077 


16838 


1530 


1315% 


1524 


4 
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1224% 12278 
699 946% 947 
9818 


1099 1287 1412 


13208 


948 


1413 


950% 


1416 


955% 


1429 


SEQ 0045 
960 961 
1440 1459 


962% 
1508 


= 
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SEE 


aE 


005576 
S355% U 


14-JUN-78 16: 00 


545 
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739% 
7358 


5508 


1377% 
1355 
1 358% 


16048 

1566 
639% 

1508 


H ; 
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1267 
1269 


1375% 


639 


13818 


1370 


1569% 
706 


1524 


1344 1368 
1274 1346 
13838 
654 1267 
1374x 


1580x 16068 
722% 723% 742 


SEQ 0046 
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. SASTA= S8RaR% U 
001122 
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1692 
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621 
359 


1476 
1443% 


16868 
15238 


1683 
13108 


15238 


623 


360 


1482 
1474 


16878 


1311 


505 
1324 
1524 


648 


361 


1480 


1688 


1445 


.. = 
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651 


623 


16898 


18258 


722 1396 1530 


715 722 734 740 


1690 16918 16928 16938 


5108 5128 529 5308 
1327 1328 1329 1330 
18268 18278 18288 


742 


16948 


5328 
1331 


SEQ 0047 


1695% 


5348 
1332 
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COMMEN 18 
ENOCOM 18 
ERROR 3658 
ESCAPE 18 
GETPRI 18 
GET 18 
T 18 
NEWTST 18 
POP 18 
PUSH 18 
REPORT 18 
OPE 3668 
SETPRI 18 
SETTRA 16758 
SE TUP 18 
SKIP 18 
SLASH 18 
SOF TSW 3428 
SPACE 4718 
STARS 18 
1532 
SU 18 
TRATRP 16758 
TYPBIN 18 
TYPODEC 18 
TYP 18 
TYPNUM 18 
TYPOCS 18 
TYPOCT 18 
TYP 1¢ 
SSESCA 18 
SSNE 18 
SSSET 16758 
SSSETN 6398 
SSSKIP 18 
. EQUAT 18 
. MEADE 18 
.KTi1 Vai 
. SETUP 18 
. STARS 3428 
. SWRHI if 
. SHRLO 3618 
. SACTI 18 
. SAPTB 18 
. SAPTH ie 
. SRPTY 18 
. SASTA 18 
. SCATC 18 
. SCHTA 18 
. $0820 18 
. $0820 18 
. SO1V 18 
. SEOP 16 
- SERRO 18 
. SERRT 44 
. SMULT 18 


14-JUN-78 16: 00 


710 


1378 
1339 


1686 


615 


503 


644 


1686 


1379 
1341 


1688 


526 


1688 


1645 
1362 


1690 


528 


1690 


1652 

1625 1652 
1691 1692 
535 548 
1691 1692 


J 4 
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1693 


712 


1693 


1694 


1246 


1694 


1334 


1391 


1396 


1464 


SEQ 0048 


1493 


K 
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CZ2N9BB. P11 14-JUN-78 16: CROSS REFERENCE TABLE -- MACRO NAMES 
SPOWE 18 

SRAND 18 

SRODE 18 

. SROOC 18 

. SREAD 18 3428 = 1389 
- SRZAZ 18 

. SSAVE 18 342% §©1607 
$S820 18 

$S820 18 

SSCOP 18 

. $SIZE 18 

. SSUPR 1a 

STRAP 18 3428 =61652 
STYPB 18 

STYPO 18 

STYPE 18 3428 =—1244 
STYPO 18 3428 =§=©1530 
$40CA is 

1170 18 


. ABS. 012416 000 


ERRORS DETECTED: 0 


CZM9BB. BIN, CZM9BB. LST/CRF /SOL/NL: TOC=DSKZ: CZM9BB. SML. DSKM: CZ2M9BB. P11 
RUN-TIME: 11 13 .8 SECONDS 
RUN-TIME RATIO: 144/725=5. 6 
CORE USED: 32K (63 PAGES) 


